mk_fun_ty : hol_type -> hol_type -> hol_type
# mk_fun_ty `:num` `:num`;; val it : hol_type = `:num->num` # itlist mk_fun_ty [`:A`; `:B`; `:C`] `:bool`;; val it : hol_type = `:A->B->C->bool`