12 lines
307 B
Text
12 lines
307 B
Text
import Lean
|
|
|
|
open Lean Meta Elab Tactic Grind in
|
|
elab "grind_pre" : tactic => do
|
|
liftMetaTactic fun mvarId => do
|
|
let result ← Meta.Grind.Preprocessor.main mvarId
|
|
return result.goals.map (·.mvarId) |>.toList
|
|
|
|
example (h : (a && (b || c)) = true) : b && a := by
|
|
grind_pre
|
|
trace_state
|
|
sorry
|