SPEC_ALL : thm -> thm
A |- !x1...xn. t
--------------------------- SPEC_ALL
A |- t[x1'/x1]...[xn'/xn]
# let th = ADD_ASSUM `m = 1` ADD_SYM;; val th : thm = m = 1 |- !m n. m + n = n + m # SPEC_ALL th;; val it : thm = m = 1 |- m' + n = n + m'