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
20 lines
644 B
Text
20 lines
644 B
Text
variable {α : Type _} [Mul α] [Inhabited α]
|
||
|
||
abbrev Left (a : α) : α := a * default
|
||
abbrev Right (a : α): α := default * a
|
||
|
||
theorem mul_comm (a b : α) : a * b = b * a := sorry
|
||
|
||
set_option trace.Meta.Tactic.simp true
|
||
/--
|
||
trace: [Meta.Tactic.simp.rewrite] mul_comm:1000:perm, perm rejected Left a ==> default * a
|
||
[Meta.Tactic.simp.rewrite] mul_comm:1000:perm:
|
||
Right a
|
||
==>
|
||
a * default
|
||
[Meta.Tactic.simp.rewrite] mul_comm:1000:perm, perm rejected a * default ==> default * a
|
||
[Meta.Tactic.simp.rewrite] eq_self:1000: Left a = a * default ==> True
|
||
-/
|
||
#guard_msgs in
|
||
example (a : α) : Left a = Right a := by
|
||
simp [mul_comm]
|