deffunc H₁( Element of NAT ) -> Real = middle_sum (f,(S . $1));
thus ex IT being Real_Sequence st
for i being Element of NAT holds IT . i = H₁(i) from SEQ_1:sch 1(); :: thesis: verum