fact: Definition IND_0_pred := fun z : ind => (forall x1 : ind, forall x2 : ind, ((IND_SUC x1) = (IND_SUC x2)) = (x1 = x2)) /\ (forall x : ind, ~ ((IND_SUC x) = z)).
imports: Coq.Logic.ClassicalEpsilon ClassicalFacts PropExtensionalityFacts