2013-12-25 20:27:56 +00:00
|
|
|
(** import("macros.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) :=
|
2014-01-04 02:11:01 +00:00
|
|
|
For x y z, Assume (H1 : p (f x x)) (H2 : x = y) (H3 : x = z),
|
|
|
|
Subst' H1 H2 H3.
|
2013-12-25 20:27:56 +00:00
|
|
|
|
|
|
|
Show Environment 1.
|