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