
theorem Th47:
  for A being Preorder holds
    the carrier of QuotientOrder(A) is a_partition of the carrier of A
proof
  let A be Preorder;
  the carrier of QuotientOrder(A) = Class EqRelOf A by Def7;
  hence thesis;
end;
