2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-09-04 16:36:06 -07:00
|
|
|
open tactic
|
2014-10-02 16:20:52 -07:00
|
|
|
constant p : num → num → num → Prop
|
2014-07-11 04:51:28 +01:00
|
|
|
axiom H1 : ∃ x y z, p x y z
|
|
|
|
axiom H2 : ∀ {x y z : num}, p x y z → p x x x
|
|
|
|
theorem tst : ∃ x, p x x x
|
2015-02-05 10:54:00 -08:00
|
|
|
:= obtain a b c H, from H1,
|
2014-12-15 19:05:03 -08:00
|
|
|
by (apply exists.intro; apply H2; eassumption)
|