theorem Th18:
  (superior_setsequence B).0 = Union B
proof
  (superior_setsequence B).0 = union {B.k : 0 <= k} by Def3
    .= union rng B by Th5
    .= Union B by CARD_3:def 4;
  hence thesis;
end;
