intro.
rewrite (shatter_word a).
replace (wtl a) with WO by auto.
destruct (whd a).
right; apply eq_refl.
left; apply eq_refl.
Defined.

Lemma wmsb_eq_rect:
forall sz1 (w: word sz1) sz2 (Hsz: sz1 = sz2) b,
wmsb w b = wmsb (eq_rect _ word w _ Hsz) b.