lean2/tests/lean/run/elim2.lean
2014-12-15 19:07:38 -08:00

8 lines
266 B
Text

import logic
open tactic
constant p : num → num → num → Prop
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
:= obtain a b c H [visible], from H1,
by (apply exists.intro; apply H2; eassumption)