theorem Th12:
  Class(EqRel(R,I),a) is Element of R/I
proof
  the carrier of R/I = Class EqRel(R,I) by Def6;
  hence thesis by EQREL_1:def 3;
end;
