theorem
  XSeq.n c= (Partial_Union XSeq).n by Th9;
