Is a company name equivalent to a domain name

let endings =
    ["Inc.";"Inc";
     "CO. LTD.";"Co Ltd";"Ltd.";"Ltd";"LTD";"Limited";"Pty Ltd";
     "Corp.";"Corp.";"Corporation";"Corporation Limited"
     "GmbH"; "GMBH";"GbR";
     "AB";"AG";"BV";"NV";"nv";"SA";"S.A.";"S.R.L.";"Srl";"srl";"LLC";"LLC.";"LLP";"Oy"
     "International";"Group";"Solutions";"Systems";"Consulting";
     "Studio";"Ventures";"Labs";"Industries";"Environmental"
     "Media";"Electronics";"Automotive";"Chemical"
     "University"
     ]

let equivalentName (companyName:string) (registeredDomainName:string) =
    companyName.ToLower().Trim() = registeredDomainName.ToLower().Trim() ||
    companyName.ToLower().Replace(" ","") = registeredDomainName.ToLower() ||
    companyName.ToLower().Replace(" ","") = registeredDomainName.ToLower().Replace("-","") ||
    companyName.ToLower().Replace("-","") = registeredDomainName.ToLower().Replace("-","") ||
    companyName.ToLower().Replace("&","n") = registeredDomainName.ToLower() ||
    companyName.ToLower().Replace("&","") = registeredDomainName.ToLower()

let equivalentCompanyName (companyName:string) (registeredDomainName:string) =
    equivalentName companyName registeredDomainName ||
    endings |> List.exists (fun ending ->
        if companyName.EndsWith(" "+ending) then
            let name = companyName.Substring(0,companyName.Length-ending.Length-1)
            equivalentName name registeredDomainName
        else false
    )

equivalentCompanyName "Codegate Ltd" "codegate"
equivalentCompanyName "FlexR&D" "flexrnd"
equivalentCompanyName "AM&edm Ltd" "amedm"
equivalentCompanyName "NTS Group" "nts-group"
equivalentCompanyName "FH Campus Wien" "fh-campuswien"