deffunc H1( Element of NAT ) -> Element of REAL = lower_sum (f,(T . $1));
thus ex IT being Real_Sequence st
for i being Element of NAT holds IT . i = H1(i) from SEQ_1:sch 1(); :: thesis: verum