INST_TYPE : (hol_type,hol_type) subst -> thm -> thm
A |- t
----------------------------------- INST_TYPE[vty1|->ty1,..., vtyn|->tyn]
A[ty1,...,tyn/vty1,...,vtyn]
|-
t[ty1,...,tyn/vty1,...,vtyn]
- SPECL [``a:num``, ``b:num``] EQ_SYM_EQ; uncaught exception HOL_ERR
- load "numTheory";
- SPECL [Term `a:num`, Term`b:num`]
(INST_TYPE [alpha |-> Type`:num`] EQ_SYM_EQ);
> val it = |- (a = b) = (b = a) : thm