fix: bug at TerminalCases

`Context.jp?` is not a continuation for the local lambda.
This commit is contained in:
Leonardo de Moura 2022-08-13 10:15:43 -07:00
parent d439160f31
commit 212456720c

View file

@ -55,7 +55,7 @@ partial def visitLet (e : Expr) (fvars : Array Expr) : M Expr := do
visitCases casesInfo value
else
if value.isLambda then
value ← visitLambda value
value ← withReader (fun _ => {}) <| visitLambda value
let fvar ← mkLetDecl binderName type value nonDep
visitLet body (fvars.push fvar)
| e =>