Skip to content

Commit

Permalink
chore: do not set decide := false in simp
Browse files Browse the repository at this point in the history
This option is in the default options since some lean releases.
  • Loading branch information
tobiasgrosser committed Apr 8, 2024
1 parent c842e57 commit fe0ca1e
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions SSA/Core/Tactic.lean
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ macro "simp_peephole" "[" ts: Lean.Parser.Tactic.simpLemma,* "]" "at" ll:ident :
`(tactic|
(
change_mlir_context $ll
simp (config := {failIfUnchanged := false, decide := false }) only [
simp (config := {failIfUnchanged := false}) only [
Int.ofNat_eq_coe, Nat.cast_zero, DerivedCtxt.snoc, DerivedCtxt.ofCtxt,
DerivedCtxt.ofCtxt_empty, Valuation.snoc_last,
Com.denote, Expr.denote, HVector.denote, Var.zero_eq_last, Var.succ_eq_toSnoc,
Expand All @@ -72,7 +72,7 @@ macro "simp_peephole" "[" ts: Lean.Parser.Tactic.simpLemma,* "]" "at" ll:ident :
bind_assoc, pairBind,
$ts,*]

try simp (config := {failIfUnchanged := false, decide := false}) only [Ctxt.Var.toSnoc, Ctxt.Var.last]
try simp (config := {failIfUnchanged := false}) only [Ctxt.Var.toSnoc, Ctxt.Var.last]
try generalize $ll { val := 0, property := _ } = a;
try generalize $ll { val := 1, property := _ } = b;
try generalize $ll { val := 2, property := _ } = c;
Expand Down

0 comments on commit fe0ca1e

Please sign in to comment.