2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-07-11 03:51:28 +00:00
|
|
|
using num tactic
|
2014-07-22 16:43:18 +00:00
|
|
|
variable p : num → num → num → Prop
|
2014-07-11 03:51:28 +00: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
|
2014-07-12 05:35:24 +00:00
|
|
|
:= obtain a b c H [fact], from H1,
|
2014-07-11 03:51:28 +00:00
|
|
|
by (apply exists_intro; apply H2; eassumption)
|
