2014-01-01 11:02:41 +00:00
|
|
|
SetOption pp::colors false
|
|
|
|
|
Variable N : Type
|
|
|
|
|
Variables a b c : N
|
|
|
|
|
Variables P : N -> N -> N -> Bool
|
|
|
|
|
|
|
|
|
|
SetOpaque forall false.
|
|
|
|
|
SetOpaque exists false.
|
|
|
|
|
SetOpaque not false.
|
|
|
|
|
|
|
|
|
|
Theorem T1 (f : N -> N) (H : P (f a) b (f (f c))) : exists x y z, P x y z := ExistsIntro _ (ExistsIntro _ (ExistsIntro _ H))
|
|
|
|
|
|
2014-01-05 19:03:35 +00:00
|
|
|
print Environment 1.
|
