2014-08-25 02:58:48 +00:00
|
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
|
open tactic
|
2014-07-08 21:28:33 +00:00
|
|
|
|
|
2014-09-04 23:36:06 +00:00
|
|
|
|
definition my_tac1 := apply @eq.refl
|
|
|
|
|
|
definition my_tac2 := repeat (apply @and.intro; assumption)
|
2014-07-08 21:28:33 +00:00
|
|
|
|
|
|
|
|
|
|
tactic_hint my_tac1
|
|
|
|
|
|
tactic_hint my_tac2
|
|
|
|
|
|
|
|
|
|
|
|
theorem T1 {A : Type.{2}} (a : A) : a = a
|
|
|
|
|
|
:= _
|
|
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
|
theorem T2 {a b c : Prop} (Ha : a) (Hb : b) (Hc : c) : a ∧ b ∧ c
|
2014-07-08 21:28:33 +00:00
|
|
|
|
:= _
|
|
|
|
|
|
|
2014-09-04 23:36:06 +00:00
|
|
|
|
definition my_tac3 := fixpoint (λ f, [apply @or.intro_left; f |
|
|
|
|
|
|
apply @or.intro_right; f |
|
2014-07-08 21:28:33 +00:00
|
|
|
|
assumption])
|
|
|
|
|
|
|
|
|
|
|
|
tactic_hint [or] my_tac3
|
|
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
|
theorem T3 {a b c : Prop} (Hb : b) : a ∨ b ∨ c
|
2014-07-08 21:28:33 +00:00
|
|
|
|
:= _
|
