62f14514da
This PR updates various error messages produced by or associated with built-in tactics and adapts their formatting to current conventions.
42 lines
615 B
Text
42 lines
615 B
Text
def f : IO Nat := do
|
||
IO.println "foo"
|
||
return 0
|
||
|
||
abbrev M := StateRefT Nat IO
|
||
|
||
def g (a : Nat) : M Unit :=
|
||
pure ()
|
||
|
||
/--
|
||
info: id do
|
||
let a ← liftM f
|
||
g a : M Unit
|
||
-/
|
||
#guard_msgs in
|
||
#check id (α := M Unit) do let a ← f; g a
|
||
|
||
set_option autoLift false
|
||
|
||
set_option pp.mvars false in
|
||
/--
|
||
info: Type mismatch
|
||
f
|
||
has type
|
||
IO Nat
|
||
but is expected to have type
|
||
M ?_
|
||
---
|
||
info: id do
|
||
let a ← sorry
|
||
g a : M Unit
|
||
-/
|
||
#guard_msgs in
|
||
#check_failure id (α := M Unit) do let a ← f; g a
|
||
|
||
/--
|
||
info: id do
|
||
let a ← liftM f
|
||
g a : M Unit
|
||
-/
|
||
#guard_msgs in
|
||
#check id (α := M Unit) do let a ← liftM f; g a
|