2014-01-05 18:32:47 +00:00
|
|
|
(* import("tactic.lua") *)
|
2013-12-25 19:51:27 +00:00
|
|
|
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.
|
2013-12-26 23:54:53 +00:00
|
|
|
beta.
|
2013-12-25 19:51:27 +00:00
|
|
|
apply ForallIntro.
|
2013-12-26 23:54:53 +00:00
|
|
|
beta.
|
2013-12-25 19:51:27 +00:00
|
|
|
apply ForallIntro.
|
2013-12-26 23:54:53 +00:00
|
|
|
beta.
|
2013-12-25 19:51:27 +00:00
|
|
|
apply Discharge.
|
|
|
|
|
apply Discharge.
|
|
|
|
|
apply Discharge.
|
|
|
|
|
apply (Subst (Subst H H::1) H::2)
|
|
|
|
|
done.
|
|
|
|
|
|
|
|
|
|
Show Environment 1.
|
