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