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

fix: missing instantiateParamsLevelParams

Browse source
This commit is contained in:
Leonardo de Moura 2022-10-09 11:49:11 -07:00
parent 827ef94486
commit 613c8027d7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Lean/Compiler/LCNF/Simp/InlineProj.lean
View file

@ -63,8 +63,9 @@ where
let .const declName us := e.getAppFn | failure
let some decl ← getDecl? declName | failure
guard (decl.getArity == e.getAppNumArgs)
let params := decl.instantiateParamsLevelParams us
let code := decl.instantiateValueLevelParams us
let code ← betaReduce decl.params code e.getAppArgs (mustInline := true)
let code ← betaReduce params code e.getAppArgs (mustInline := true)
visitCode code projs
visitCode (code : Code) (projs : List Nat) : OptionT (StateRefT (Array CodeDecl) SimpM) FVarId := do