Beta : thm -> thm
A |- t = ((\x.M) N) --------------------- Beta A |- t = M [N/x]
val th = REFL (Term `(K:'a ->'b->'a) x`); > val th = |- K x = K x : thm - SUBS_OCCS [([2],combinTheory.K_DEF)] th; > val it = |- K x = (\x y. x) x : thm - Beta it; > val it = |- K x = (\y. x) : thm