fix: bug at Result.mkEqSymm (#3606)

`cache` and `dischargeDepth` fields were being reset.
This commit is contained in:
Leonardo de Moura 2024-03-05 06:37:09 -08:00 committed by GitHub
parent bf6d9295a4
commit 414f0eb19b
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -40,10 +40,9 @@ def Result.mkEqTrans (r₁ r₂ : Result) : MetaM Result :=
/-- Flip the proof in a `Simp.Result`. -/
def Result.mkEqSymm (e : Expr) (r : Simp.Result) : MetaM Simp.Result :=
({ expr := e, proof? := · }) <$>
match r.proof? with
| none => pure none
| some p => some <$> Meta.mkEqSymm p
| none => return { r with expr := e }
| some p => return { r with expr := e, proof? := some (← Meta.mkEqSymm p) }
abbrev Cache := ExprMap Result