2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic
|
2014-07-03 19:59:48 +00:00
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst1 {A : Type} {a b c : A} {p : A → A → Prop} (H1 : p a b) (H2 : p b c) : ∃ x, p a x ∧ p x c
|
2015-04-28 00:46:13 +00:00
|
|
|
:= by apply exists.intro; apply and.intro; eassumption; eassumption
|
2014-07-03 19:59:48 +00:00
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst2 {A : Type} {a b c d : A} {p : A → A → Prop} (Ha : p a c) (H1 : p a b) (Hb : p b d) (H2 : p b c) : ∃ x, p a x ∧ p x c
|
2015-04-28 00:46:13 +00:00
|
|
|
:= by apply exists.intro; apply and.intro; eassumption; eassumption
|
2014-07-03 19:59:48 +00:00
|
|
|
|
2015-05-09 03:54:16 +00:00
|
|
|
reveal tst2
|
2014-07-03 19:59:48 +00:00
|
|
|
(*
|
|
|
|
|
print(get_env():find("tst2"):value())
|
|
|
|
|
*)
|
