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

refactor: eliminate unused ExtractMonadResult.hasBindInst

Browse source
This commit is contained in:
Siddharth Bhat 2021-10-12 06:31:26 +05:30 • committed by Leonardo de Moura
parent c2c418b651
commit 3374806d0f
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Lean/Elab/Do.lean
View file

@ -87,15 +87,13 @@ private partial def hasLiftMethod : Syntax → Bool
structure ExtractMonadResult where
m : Expr
α : Expr
hasBindInst : Expr
expectedType : Expr
isPure : Bool -- `true` when it is a pure `do` block. That is, Lean implicitly inserted the `Id` Monad.
private def mkIdBindFor (type : Expr) : TermElabM ExtractMonadResult := do
let u ← getDecLevel type
let id := Lean.mkConst ``Id [u]
let idBindVal := Lean.mkConst ``Id.hasBind [u]
pure { m := id, hasBindInst := idBindVal, α := type, expectedType := mkApp id type, isPure := true }
pure { m := id, α := type, expectedType := mkApp id type, isPure := true }
private partial def extractBind (expectedType? : Option Expr) : TermElabM ExtractMonadResult := do
match expectedType? with
@ -106,8 +104,8 @@ private partial def extractBind (expectedType? : Option Expr) : TermElabM Extrac
| Expr.app m α _ =>
try
let bindInstType ← mkAppM ``Bind #[m]
let bindInstVal ← Meta.synthInstance bindInstType
return some { m := m, hasBindInst := bindInstVal, α := α, expectedType := expectedType, isPure := false }
let _ ← Meta.synthInstance bindInstType
return some { m := m, α := α, expectedType := expectedType, isPure := false }
catch _ =>
return none
| _ =>