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
22 lines
408 B
Text
22 lines
408 B
Text
set_option pp.analyze false
|
|
|
|
/--
|
|
trace: p : (n : Nat) → Fin n → Prop
|
|
n : Nat
|
|
v : Fin n
|
|
n' : Nat
|
|
v' : Fin n'
|
|
h₁ : n + 1 = n'
|
|
h₂ : HEq v.succ v'
|
|
⊢ p n' v'
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (p : (n : Nat) → Fin n → Prop)
|
|
(n : Nat)
|
|
(v : Fin n)
|
|
: p (n + 1) v.succ := by
|
|
generalize h₁ : (n + 1) = n', h₂ : v.succ = v'
|
|
trace_state
|
|
admit
|