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