theorem Th1:
  rng XSeq c= Si
proof
  let x be object;
  assume x in rng XSeq;
  then ex n being Nat st x = XSeq.n by SETLIM_1:4;
  hence thesis;
end;
