Compare commits

...

1 Commits

Author SHA1 Message Date
Leonardo de Moura
417f8056f9 fix: checkParents in grind
This PR fixes one of the sanity check tests used in `grind`.
2025-01-11 21:09:03 -08:00

View File

@@ -58,9 +58,12 @@ private def checkParents (e : Expr) : GoalM Unit := do
found := true
break
-- Recall that we have support for `Expr.forallE` propagation. See `ForallProp.lean`.
if let .forallE _ d _ _ := parent then
if let .forallE _ d b _ := parent then
if ( checkChild d) then
found := true
unless b.hasLooseBVars do
if ( checkChild b) then
found := true
unless found do
assert! ( checkChild parent.getAppFn)
else