proposition: Lemma EncodeBoundedNat8_length : forall (w: BoundedNat 8) c, List.length (byteString (fst (EncodeBoundedNat w c))) = 1.
proof: Proof. intros; rewrite EncodeBoundedNat8_simplify; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat CertifiedExtraction.Extraction.BinEncoders.Basics Coq.Lists.List Bedrock.Word Program Nomega