eaf1c6b4e1
This PR fixes an incompatibility of `replayConst` as used by e.g. `aesop` with `native_decide`-using tactics such as `bv_decide`
15 lines
448 B
Text
15 lines
448 B
Text
import Lean.Elab.Tactic.Basic
|
|
import Std.Tactic.BVDecide
|
|
|
|
/-! `replayConst` should be able to replay constants using `native_decide`. -/
|
|
|
|
open Lean Lean.Meta Lean.Elab.Tactic in
|
|
elab "replay" ts:tacticSeq : tactic => do
|
|
let initEnv ← getEnv
|
|
evalTactic ts
|
|
let finalState ← saveState
|
|
setEnv $ ← initEnv.replayConsts initEnv finalState.term.meta.core.env
|
|
|
|
theorem test
|
|
(x y : BitVec 128) (h : y = x) : x = y := by
|
|
replay bv_decide
|