proposition: Lemma NumUpTo_length : forall n l, Datatypes.length (NumUpTo n l) = n + Datatypes.length l.
proof: Proof. induction n; simpl; intros; eauto. rewrite IHn; simpl; omega. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.ADT.Core Bedrock.Platform.Facade.DFModule Fiat.ADTNotation Bedrock.Platform.Facade.CompileUnit2 Fiat.Common.i3list Fiat.Common.ilist3 CertifiedExtraction.Core CertifiedExtraction.FacadeUtils CertifiedExtraction.StringMapUtils CertifiedExtraction.Extraction.Internal CertifiedExtraction.Extraction.Extraction