16 lines
No EOL
676 B
Text
16 lines
No EOL
676 B
Text
variable N : Type
|
|
variables a b c : N
|
|
variables P : N -> N -> N -> Bool
|
|
axiom H3 : P a b c
|
|
|
|
theorem T1 : exists x y z : N, P x y z := exists::@intro N (fun x : N, exists y z : N, P x y z) a
|
|
(exists::@intro N _ b
|
|
(exists::@intro N (fun z : N, P a b z) c H3))
|
|
|
|
theorem T2 : exists x y z : N, P x y z := exists::intro a (exists::intro b (exists::intro c H3))
|
|
|
|
theorem T3 : exists x y z : N, P x y z := exists::intro _ (exists::intro _ (exists::intro _ H3))
|
|
|
|
theorem T4 (H : P a a b) : exists x y z, P x y z := exists::intro _ (exists::intro _ (exists::intro _ H))
|
|
|
|
print environment 4 |