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