theorem
  (Partial_Diff_Union XSeq).n c= (Partial_Union XSeq).n by Th18;
