19 lines
481 B
Text
19 lines
481 B
Text
macro "ext_tactic" t:tactic "=>" newT:tactic : command => `(macro_rules | `(tactic| $t) => `(tactic| $newT))
|
|
|
|
syntax "trivial'" : tactic
|
|
|
|
ext_tactic trivial' => apply Eq.refl
|
|
|
|
theorem tst1 (x : Nat) : x = x :=
|
|
by trivial'
|
|
|
|
-- theorem tst2 (x y : Nat) (h : x = y) : x = y :=
|
|
-- by trivial' -- fail as expected
|
|
|
|
ext_tactic trivial' => assumption
|
|
|
|
theorem tst1b (x : Nat) : x = x :=
|
|
by trivial' -- still works
|
|
|
|
theorem tst2 (x y : Nat) (h : x = y) : x = y :=
|
|
by trivial' -- works too
|