tysubst : (hol_type * hol_type) list -> hol_type -> hol_type
# tysubst [`:num`,`:A`; `:bool`,`:B`] `:A->(B)list->A#B#C`;; val it : hol_type = `:num->(bool)list->num#bool#C` # tysubst [`:A`,`:(num)list`] `:num->(num)list->(num)list`;; val it : hol_type = `:num->A->A`