proposition: Lemma wmsb_waddmsb: forall (sz : nat) (w : word sz) (b b' : bool), wmsb (waddmsb w b) b' = b.
proof: Proof. induction w; simpl; intros; try rewrite IHw; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing