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

feat: eliminate trivial let-declarations

Browse source
This commit is contained in:
Leonardo de Moura 2022-08-16 12:46:46 -07:00
parent 117db0da01
commit e8fdfe4193
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Lean/Compiler/Simp.lean
View file

@ -72,9 +72,13 @@ where
let mut value := value.instantiateRev xs
if value.isLambda then
value ← visitLambda value
let type := type.instantiateRev xs
let x ← mkLetDecl binderName type value nonDep
go body (xs.push x)
if value.isFVar then
/- Eliminate `let _x_i := _x_j;` -/
go body (xs.push value)
else
let type := type.instantiateRev xs
let x ← mkLetDecl binderName type value nonDep
go body (xs.push x)
| _ =>
let e := e.instantiateRev xs
if let some casesInfo ← isCasesApp? e then