theorem
  (superior_setsequence B).n c= Union B
proof
  0 <= n by NAT_1:2;
  then (superior_setsequence B).n c= (superior_setsequence B).0 by PROB_1:def 4
;
  hence thesis by Th18;
end;
