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
80 lines
1.8 KiB
Text
80 lines
1.8 KiB
Text
|
|
/--
|
|
trace: b : Bool
|
|
⊢ if b = true then
|
|
let_fun unused := ();
|
|
True
|
|
else False
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
trace_state; sorry
|
|
|
|
/--
|
|
trace: b : Bool
|
|
⊢ b = true
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
simp; trace_state; sorry
|
|
|
|
/--
|
|
trace: b : Bool
|
|
⊢ b = true ∧
|
|
let_fun unused := ();
|
|
True
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
simp (config := Lean.Meta.Simp.neutralConfig); trace_state; sorry
|
|
|
|
/-- error: simp made no progress -/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
simp (config := Lean.Meta.Simp.neutralConfig) only; trace_state; sorry
|
|
|
|
/--
|
|
trace: b : Bool
|
|
⊢ if b = true then True else False
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
simp (config := Lean.Meta.Simp.neutralConfig) +zeta only; trace_state; sorry
|
|
|
|
|
|
/--
|
|
trace: b : Bool
|
|
⊢ if b = true then True else False
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
simp (config := Lean.Meta.Simp.neutralConfig) +zetaUnused only; trace_state; sorry
|
|
|
|
|
|
-- Before the introduction of zetaUnused, split would do collateral damage to unused letFuns.
|
|
-- Now they are preserved:
|
|
|
|
/--
|
|
trace: case isTrue
|
|
b : Bool
|
|
h✝ : b = true
|
|
⊢ let_fun unused := ();
|
|
True
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (b : Bool) : if b then have unused := (); True else False := by
|
|
split
|
|
· trace_state; sorry
|
|
· sorry
|