reserve A,B,a,b,c,d,e,f,g,h for set;

theorem Th28:
  for R being RelStr, x being Element of R, y be set st y in
  component x holds [x,y] in EqCl the InternalRel of R
proof
  let R be RelStr;
  let x be Element of R;
  let y be set;
  set IR = the InternalRel of R;
  assume y in component x;
  then [y,x] in EqCl IR by EQREL_1:19;
  hence thesis by EQREL_1:6;
end;
