theorem :: SERIES_2:9

for s being Real_Sequence st ( for n being Nat holds s . n = 1 / (n * (n + 1)) ) holds
for n being Nat holds (Partial_Sums s) . n = 1 - (1 / (n + 1))