proposition: Lemma OneC_plus_wones_wzero {sz} : wones sz ^1+ wzero sz = wones sz.
proof: Proof. unfold OneC_plus. pose proof (@wones_not_wzero sz); repeat match goal with | [ |- context[weqdec ?a ?b] ] => destruct (weqdec a b) end; congruence. 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 AlignedByteString Permutation