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
30 lines
818 B
Text
30 lines
818 B
Text
open BitVec
|
|
|
|
variable (write : (n : Nat) → BitVec 64 → BitVec (n * 8) → Type → Type)
|
|
|
|
theorem write_simplify_test_0 (a x y : BitVec 64)
|
|
(h : ((8 * 8) + 8 * 8) = 2 * ((8 * 8) / 8) * 8) :
|
|
write (2 * ((8 * 8) / 8)) a (BitVec.cast h (zeroExtend (8 * 8) x ++ (zeroExtend (8 * 8) y))) s
|
|
=
|
|
write 16 a (x ++ y) s := by
|
|
simp only [setWidth_eq, BitVec.cast_eq]
|
|
|
|
/--
|
|
trace: write : (n : Nat) → BitVec 64 → BitVec (n * 8) → Type → Type
|
|
s aux : Type
|
|
a x y : BitVec 64
|
|
h : 128 = 128
|
|
⊢ write 16 a (x ++ y) s = aux
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (a x y : BitVec 64)
|
|
(h : ((8 * 8) + 8 * 8) = 2 * ((8 * 8) / 8) * 8) :
|
|
write (2 * ((8 * 8) / 8)) a (BitVec.cast h (zeroExtend (8 * 8) x ++ (zeroExtend (8 * 8) y))) s
|
|
=
|
|
aux := by
|
|
simp
|
|
dsimp at h
|
|
trace_state
|
|
sorry
|