reserve X,Y,x,y for set;
reserve A for non empty Poset;
reserve a,a1,a2,a3,b,c for Element of A;
reserve S,T for Subset of A;

theorem Th2:
  for A being antisymmetric RelStr, a1,a2 being Element of A st a1
  <= a2 & a2 <= a1 holds a1 = a2
proof
  let A be antisymmetric RelStr, a1,a2 be Element of A;
  assume that
A1: [a1,a2] in the InternalRel of A and
A2: [a2,a1] in the InternalRel of A;
A3: the InternalRel of A is_antisymmetric_in the carrier of A by Def4;
  a1 in the carrier of A by A1,ZFMISC_1:87;
  hence thesis by A1,A2,A3;
end;
