theorem Th15:
  (s+1)! = (s!) * (s+1)
proof
  idseq (s+1) = idseq s ^ <* s+1 *> by FINSEQ_2:51;
  hence thesis by RVSUM_1:96;
end;
