 reserve X,a,b,c,x,y,z,t for set;
 reserve R for Relation;

theorem :: Corollary 3
  for R1, R2 being non empty RelStr st
    the carrier of R1 = the carrier of R2 &
    UAp R1 = UAp R2 holds
      the InternalRel of R1 = the InternalRel of R2 by Corr3A;
