proposition: Lemma Ensembles_Singleton_Eq: forall {A} x x', @Ensembles.Singleton A x x' <-> x = x'.
proof: Proof. split; intros ** H; inversion H; firstorder. Qed.
imports: CertifiedExtraction.Extraction.QueryStructures.Basics CertifiedExtraction.Extraction.QueryStructures.BinNatUtils CertifiedExtraction.Extraction.QueryStructures.TupleToListW CertifiedExtraction.Extraction.QueryStructures.EnsemblesOfTuplesAndListW Fiat.QueryStructure.Specification.Representation.Tuple Bedrock.Memory Coq.Lists.List CertifiedExtraction.Utils