deffunc H₁( Element of NAT ) -> Element of REAL = |.(seq . $1).|;
thus ex s being Real_Sequence st
for n being Element of NAT holds s . n = H₁(n) from SEQ_1:sch 1(); :: thesis: verum