fix: checkParents in grind (#6611)
This PR fixes one of the sanity check tests used in `grind`.
This commit is contained in:
parent
c5c1278315
commit
ce1ff03af0
1 changed files with 4 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue