2014-01-06 05:45:31 +00:00
|
|
|
set::option pp::colors false
|
2014-01-05 20:05:08 +00:00
|
|
|
variable N : Type
|
|
|
|
|
variables a b c : N
|
|
|
|
|
variables P : N -> N -> N -> Bool
|
2014-01-01 11:02:41 +00:00
|
|
|
|
2014-01-06 05:45:31 +00:00
|
|
|
set::opaque forall false.
|
|
|
|
|
set::opaque exists false.
|
|
|
|
|
set::opaque not false.
|
2014-01-01 11:02:41 +00:00
|
|
|
|
2014-01-06 03:10:21 +00:00
|
|
|
theorem T1 (f : N -> N) (H : P (f a) b (f (f c))) : exists x y z, P x y z := exists::intro _ (exists::intro _ (exists::intro _ H))
|
2014-01-01 11:02:41 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|
