match_type : hol_type -> hol_type -> (hol_type,hol_type) subst
type_subst (match_type ty1 ty2) ty1 = ty2
- match_type alpha (Type`:num`);
> val it = [{redex = `:'a`, residue = `:num`}] : hol_type subst
- let val patt = Type`:('a -> bool) -> 'b`
val ty = Type`:(num -> bool) -> bool`
in
type_subst (match_type patt ty) patt = ty
end;
> val it = true : bool
- match_type (alpha --> alpha)
(ind --> bool);
! Uncaught exception:
! HOL_ERR