theorem :: SERIES_4:27

for s being Real_Sequence st ( for n being Nat st n >= 1 holds
( s . n = n & s . 0 = 1 ) ) holds
for n being Nat st n >= 1 holds
(Partial_Product s) . n = n !