theorem
  XSeq is non-descending implies (Partial_Diff_Union XSeq).0 = XSeq.0 &
  for n holds (Partial_Diff_Union XSeq).(n+1) = XSeq.(n+1) \ XSeq.n by Th16;
