fact: Definition fun_inj := forall a a' , In DA a -> In DA a' -> f a = f a' -> a = a'.
imports: Coq(ClassicalDescription Ensembles Image ProofIrrelevance) ZornsLemma(EnsemblesImplicit FunctionProperties ImageImplicit) hydras(MoreEpsilonIota)