13 lines
264 B
Text
13 lines
264 B
Text
import Lean.Elab.Tactic.Basic
|
|
import Lean.Meta.Tactic.Util
|
|
|
|
open Lean Elab Tactic Meta
|
|
|
|
elab "foo" : tactic => liftMetaTactic fun g => do
|
|
g.assign (← mkFreshExprMVar (← g.getType))
|
|
throwError ""
|
|
|
|
#guard_msgs in
|
|
example : True := by
|
|
repeat' foo
|
|
trivial
|