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
26 lines
593 B
Text
26 lines
593 B
Text
attribute [-simp] Nat.add_eq_right -- This was later added to the simp set and interfere with the test.
|
|
|
|
example (a : Nat) : let n := 0; n + a = a := by
|
|
intro n
|
|
fail_if_success simp (config := { zeta := false })
|
|
simp (config := { zeta := false }) [n]
|
|
|
|
/--
|
|
trace: a b : Nat
|
|
h : a = b
|
|
n : Nat := 0
|
|
⊢ n + a = b
|
|
---
|
|
trace: a b : Nat
|
|
h : a = b
|
|
n : Nat := 0
|
|
⊢ a = b
|
|
-/
|
|
#guard_msgs in
|
|
example (a b : Nat) (h : a = b) : let n := 0; n + a = b := by
|
|
intro n
|
|
fail_if_success simp (config := { zeta := false })
|
|
trace_state
|
|
simp (config := { zeta := false }) [n]
|
|
trace_state
|
|
simp [h]
|