proposition: Lemma whd_waddmsb {sz}: forall b (w: word (S sz)), whd (waddmsb w b) = whd w.
proof: Proof. intros; destruct (shatter_word_S w) as (? & [ ? ? ]); subst; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing ZArith ZArithRing Program Coq.micromega.Psatz