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