fix: checkParents in grind (#6611)

This PR fixes one of the sanity check tests used in `grind`.
This commit is contained in:
Leonardo de Moura 2025-01-11 21:30:41 -08:00 committed by GitHub
parent c5c1278315
commit ce1ff03af0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

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