0e49576fe4
This PR makes `#guard_msgs` to treat `trace` messages separate from `info`, `warning` and `error`. It also introduce the ability to say `#guard_msgs (pass info`, like `(drop info)` so far, and also adds `(check info)` as the explicit form of `(info)`, for completeness. Fixes #8266
154 lines
3 KiB
Text
154 lines
3 KiB
Text
import Lean.Elab.BuiltinNotation
|
|
import Lean.Meta.Basic
|
|
/-!
|
|
# Testing `pp.mvars`
|
|
-/
|
|
|
|
open Lean Meta
|
|
|
|
/-!
|
|
Default values
|
|
-/
|
|
|
|
/-- info: ?a : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
/-- trace: ⊢ Sort ?u.1 -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : (by_elab do return .sort (.mvar (.mk (.num `_uniq 1)))) := by
|
|
trace_state
|
|
sorry
|
|
|
|
/-!
|
|
Turning off `pp.mvars`
|
|
-/
|
|
section
|
|
set_option pp.mvars false
|
|
|
|
/-- info: ?_ : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
/-- info: ?_ : Nat -/
|
|
#guard_msgs in #check (_ : Nat)
|
|
|
|
/-- trace: ⊢ Sort _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : (by_elab do return .sort (.mvar (.mk (.num `_uniq 1)))) := by
|
|
trace_state
|
|
sorry
|
|
|
|
/-- trace: ⊢ Type _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : Type _ := by
|
|
trace_state
|
|
sorry
|
|
|
|
end
|
|
|
|
/-!
|
|
Turning off `pp.mvars.levels`
|
|
-/
|
|
section
|
|
set_option pp.mvars.levels false
|
|
|
|
/-- info: ?a : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
/-- info: ?m.222222222 : Nat -/
|
|
#guard_msgs in #check by_elab do
|
|
-- Control the mvarId with something that's too big to happen naturally:
|
|
let mvarId : MVarId := .mk (.num `_uniq 222222222)
|
|
let lctx ← getLCtx
|
|
let type := mkConst ``Nat
|
|
Lean.MonadMCtx.modifyMCtx fun mctx => mctx.addExprMVarDecl mvarId .anonymous lctx {} type .natural 0
|
|
return .mvar mvarId
|
|
|
|
/-- trace: ⊢ Sort _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : (by_elab do return .sort (.mvar (.mk (.num `_uniq 1)))) := by
|
|
trace_state
|
|
sorry
|
|
|
|
/-- trace: ⊢ Type _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : Type _ := by
|
|
trace_state
|
|
sorry
|
|
|
|
end
|
|
|
|
/-!
|
|
Turning off `pp.mvars.anonymous`
|
|
-/
|
|
section
|
|
set_option pp.mvars.anonymous false
|
|
|
|
/-- info: ?a : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
/-- info: ?_ : Nat -/
|
|
#guard_msgs in #check by_elab do
|
|
-- Control the mvarId with something that's too big to happen naturally:
|
|
let mvarId : MVarId := .mk (.num `_uniq 222222222)
|
|
let lctx ← getLCtx
|
|
let type := mkConst ``Nat
|
|
Lean.MonadMCtx.modifyMCtx fun mctx => mctx.addExprMVarDecl mvarId .anonymous lctx {} type .natural 0
|
|
return .mvar mvarId
|
|
|
|
/-- trace: ⊢ Sort _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : (by_elab do return .sort (.mvar (.mk (.num `_uniq 1)))) := by
|
|
trace_state
|
|
sorry
|
|
|
|
/-- trace: ⊢ Type _ -/
|
|
#guard_msgs (trace, drop all) in
|
|
example : Type _ := by
|
|
trace_state
|
|
sorry
|
|
|
|
end
|
|
|
|
/-!
|
|
Turning off `pp.mvars` and turning on `pp.mvars.withType`.
|
|
-/
|
|
section
|
|
set_option pp.mvars false
|
|
set_option pp.mvars.withType true
|
|
|
|
/-- info: (?_ : Nat) : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
/-- info: (?_ : Nat) : Nat -/
|
|
#guard_msgs in #check (_ : Nat)
|
|
|
|
end
|
|
|
|
/-!
|
|
Turning on `pp.mvars.withType`.
|
|
-/
|
|
section
|
|
set_option pp.mvars.withType true
|
|
|
|
/-- info: (?a : Nat) : Nat -/
|
|
#guard_msgs in #check (?a : Nat)
|
|
|
|
end
|
|
|
|
|
|
/-!
|
|
Delayed assignment metavariables respecting `pp.mvars.anonymous`
|
|
-/
|
|
|
|
section
|
|
set_option pp.mvars.anonymous false
|
|
|
|
/-- info: fun x => ?a : (x : Nat) → ?_ x -/
|
|
#guard_msgs in #check fun _ : Nat => ?a
|
|
|
|
set_option pp.mvars.delayed true
|
|
|
|
/-- info: fun x => ?_ x : (x : Nat) → ?_ x -/
|
|
#guard_msgs in #check fun _ : Nat => ?a
|
|
|
|
end
|