
theorem Th29:
  for A being RelStr, a1, a2 being Element of A
    st a1 <= a2 holds a1 in the carrier of A & a2 in the carrier of A
proof
  let A be RelStr;
  let a1, a2 be Element of A;
  assume a1 <= a2;
  then [a1,a2] in the InternalRel of A by ORDERS_2:def 5;
  hence thesis by ZFMISC_1:87;
end;
