We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
isEqv
1 parent dca874e commit d67180aCopy full SHA for d67180a
src/Lean/Meta/Tactic/Grind/Types.lean
@@ -312,9 +312,12 @@ def isEqFalse (e : Expr) : GoalM Bool := do
312
313
/-- Returns `true` if `a` and `b` are in the same equivalence class. -/
314
def isEqv (a b : Expr) : GoalM Bool := do
315
- let na ← getENode a
316
- let nb ← getENode b
317
- return isSameExpr na.root nb.root
+ if isSameExpr a b then
+ return true
+ else
318
+ let na ← getENode a
319
+ let nb ← getENode b
320
+ return isSameExpr na.root nb.root
321
322
/-- Returns `true` if the root of its equivalence class. -/
323
def isRoot (e : Expr) : GoalM Bool := do
0 commit comments