theorem Th12:
  0 < m implies dom (Sgm (Seg n \/ {n+m})) = Seg (n+1)
proof
  assume 0 < m;
  then len (Sgm (Seg n \/ {n+m})) = n+1 by Th11;
  hence thesis by FINSEQ_1:def 3;
end;
