SPEC : term -> thm -> thm
A |- !x. t -------------- SPEC u A |- t[u/x]
- let val xv = Term `x:bool` and yv = Term `y:bool` in (GEN xv o DISCH xv o GEN yv o DISCH yv) (ASSUME xv) end; > val it = |- !x. x ==> !y. y ==> x : thm - SPEC (Term `~y`) it; > val it = |- ~y ==> !y'. y' ==> ~y : thm