theorem
  x in (Partial_Union XSeq).n iff ex k st k <= n & x in XSeq.k
 proof reconsider XSeq as SetSequence of X;
  x in (Partial_Union XSeq).n iff ex k st k <= n & x in XSeq.k by Th13;
  hence thesis;
 end;
