BETA_RULE : (thm -> thm)
A |- ....((\x. s1) s2).... ---------------------------- BETA_RULE A |- ....(s1[s2/x])....
- Globals.show_assums := true; val it = () : unit - local val tm = Parse.Term `f = ((\x y. x + y) y)` in val x = ASSUME tm end; val x = [f = (\x y. x + y)y] |- f = (\x y. x + y)y : thm - BETA_RULE x; val it = [f = (\x y. x + y)y] |- f = (\y'. y + y') : thm