max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: use forallTelescope rather than forallTelescopeReducing (#10073)

Browse source
This commit is contained in:
Cameron Zwarich 2025-08-22 21:07:23 -07:00 • committed by GitHub
parent 4a7def9e5f
commit 91a2de1e1e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Compiler/IR/ToIRType.lean
View file

@ -63,7 +63,7 @@ where fillCache : CoreM IRType := do
for ctorName in ctorNames do
let some (.ctorInfo ctorInfo) := env.find? ctorName | unreachable!
let hasRelevantField ← Meta.MetaM.run' <|
Meta.forallTelescopeReducing ctorInfo.type fun params _ => do
Meta.forallTelescope ctorInfo.type fun params _ => do
for field in params[ctorInfo.numParams...*] do
let fieldType ← field.fvarId!.getType
let lcnfFieldType ← LCNF.toLCNFType fieldType