deffunc H₁( Nat) -> Element of K16(K17(D, the carrier of Y)) = r (#) (H . $1);
thus ex f being Functional_Sequence of D, the carrier of Y st
for n being Nat holds f . n = H₁(n) from SEQFUNC:sch 1(); :: thesis: verum