lean2/tests/lean/subst2.lean

15 lines
360 B
Text
Raw Normal View History

(* import("tactic.lua") *)
theorem T (A : Type) (p : A -> Bool) (f : A -> A -> A) : forall x y z, p (f x x) => x = y => x = z => p (f y z).
apply ForallIntro.
beta.
apply ForallIntro.
beta.
apply ForallIntro.
beta.
apply Discharge.
apply Discharge.
apply Discharge.
apply (Subst (Subst H H::1) H::2)
done.
print environment 1.