ALPHA : term -> term -> thm
------------- ALPHA `t1` `t1'`
|- t1 = t1'
# ALPHA `!x:num. x = x` `!y:num. y = y`;; val it : thm = |- (!x. x = x) <=> (!y. y = y) # ALPHA `\w. w + z` `\z'. z' + z`;; val it : thm = |- (\w. w + z) = (\z'. z' + z)