match_term : term -> term -> (term,term) subst * (hol_type,hol_type) subst
aconv (subst S (inst T pat)) ob.
- val th = REFL (Term `x:'a`);
val th = |- x = x : thm
- match_term (concl th) (Term `1 = 1`);
val it = ([{redex = `x`, residue = `1`}],
[{redex = `:'a`, residue = `:num`}])
: term subst * hol_type subst
- INST_TY_TERM it th;
val it = |- 1 = 1