theorem Th18:
  ConstOSA(S,z,CH) is order-sorted
proof
  the Sorts of ConstOSA(S,z,CH) = ConstOSSet(S,z) by Def18;
  hence thesis by Th17;
end;
