theorem
  R is_symmetric_in X implies R is symmetric
proof
  assume
A1: R is_symmetric_in X;
  let x,y be object;
  field R c= X \/ X by RELSET_1:8;
  hence thesis by A1;
end;
