fix: bug at Result.mkEqSymm (#3606)
`cache` and `dischargeDepth` fields were being reset.
This commit is contained in:
parent
bf6d9295a4
commit
414f0eb19b
1 changed files with 2 additions and 3 deletions
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue