proposition: Lemma NoDup_BuildFinUpTo : forall n, NoDup (BuildFinUpTo n).
proof: Proof. induction n; simpl; econstructor. - clear; induction (BuildFinUpTo n); simpl. + tauto. + intuition; discriminate. - eapply ListFacts1.Injection_NoDup; eauto. unfold ListFacts1.IsInjection; intros. unfold not; intros; apply H. apply Fin.FS_inj in H0; eauto. 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