fact: Definition SingletonSet (P : Ensemble A) := {b' | forall b : A, b' = Some b <-> P b}.
imports: Coq.Arith.Arith Coq.Sets.Ensembles Coq.Lists.List Fiat.Common.List.ListFacts Fiat.Common.DecideableEnsembles Fiat.Computation