perf: avoid isDefEq test at simpEq simproc used in grind (#9385)
This PR replaces the `isDefEq` test in the `simpEq` simproc used in `grind`. It is too expensive.
This commit is contained in:
parent
0926d27100
commit
166d1c0dab
1 changed files with 1 additions and 1 deletions
|
|
@ -52,7 +52,7 @@ builtin_simproc_decl simpEq (@Eq _ _ _) := fun e => do
|
|||
return .visit { expr := e', proof? := mkApp2 (mkConst ``Grind.bool_eq_to_prop) lhs rhs }
|
||||
return .continue
|
||||
| _ =>
|
||||
if (← isDefEq lhs rhs) then
|
||||
if lhs == rhs then
|
||||
let u := f.constLevels!
|
||||
return .done { expr := mkConst ``True, proof? := mkApp2 (mkConst ``eq_self u) α lhs }
|
||||
else if rhs == mkConst ``True then
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue