theorem
  i in Seg l implies i in Seg(l+j)
proof
  l <= l+j by NAT_1:11;
  then Seg l c= Seg(l+j) by FINSEQ_1:5;
  hence thesis;
end;
