proposition: Lemma length_of_fixed_length_list {A} : forall {size} (ls: BoundedList A size), List.length (proj1_sig ls) < size.
proof: Proof. destruct ls; auto. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat CertifiedExtraction.Extraction.BinEncoders.Basics Coq.Lists.List Bedrock.Word Program