parent
3ed910a043
commit
15e2a7d5b4
4 changed files with 18 additions and 2 deletions
|
|
@ -324,6 +324,7 @@ unsafe def elabEvalUnsafe : CommandElab
|
|||
let elabEvalTerm : TermElabM Expr := do
|
||||
let e ← Term.elabTerm term none
|
||||
Term.synthesizeSyntheticMVarsNoPostponing
|
||||
if (← Term.logUnassignedUsingErrorInfos (← getMVars e)) then throwAbortTerm
|
||||
if (← isProp e) then
|
||||
mkDecide e
|
||||
else
|
||||
|
|
|
|||
3
tests/lean/evalNone.lean
Normal file
3
tests/lean/evalNone.lean
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
#eval none
|
||||
|
||||
#eval [].head?
|
||||
12
tests/lean/evalNone.lean.expected.out
Normal file
12
tests/lean/evalNone.lean.expected.out
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
evalNone.lean:1:6-1:10: error: don't know how to synthesize implicit argument
|
||||
@none ?m
|
||||
context:
|
||||
⊢ Type ?u
|
||||
evalNone.lean:3:6-3:14: error: don't know how to synthesize implicit argument
|
||||
@List.head? ?m []
|
||||
context:
|
||||
⊢ Type ?u
|
||||
evalNone.lean:3:6-3:8: error: don't know how to synthesize implicit argument
|
||||
@List.nil ?m
|
||||
context:
|
||||
⊢ Type ?u
|
||||
|
|
@ -2,10 +2,10 @@ Sum.someRight c : Option Nat
|
|||
evalWithMVar.lean:13:20-13:21: error: don't know how to synthesize implicit argument
|
||||
@c ?m
|
||||
context:
|
||||
⊢ Type u_1
|
||||
⊢ Type ?u
|
||||
evalWithMVar.lean:13:6-13:21: error: don't know how to synthesize implicit argument
|
||||
@Sum.someRight ?m Nat c
|
||||
context:
|
||||
⊢ Type u_1
|
||||
⊢ Type ?u
|
||||
Sum.someRight c : Option Nat
|
||||
Sum.someRight c : Option Nat
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue