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