theorem Th12:
  for R holds ex EqR st R c= EqR & for EqR2 st R c= EqR2 holds EqR c= EqR2
proof
  let R;
  defpred P[set] means $1 is Equivalence_Relation of X & R c= $1;
  consider F being Subset-Family of [:X,X:] such that
A1: for AX holds AX in F iff P[AX] from SUBSET_1:sch 3;
  R c= nabla X;
  then
A2: F <> {} by A1;
  for Y st Y in F holds Y is Equivalence_Relation of X by A1;
  then reconsider EqR = meet F as Equivalence_Relation of X by A2,Th11;
A3: for EqR2 st R c= EqR2 holds EqR c= EqR2 by A1,SETFAM_1:3;
  take EqR;
  for Y st Y in F holds R c= Y by A1;
  hence thesis by A2,A3,SETFAM_1:5;
end;
