let seq1, seq2 be Functional_Sequence of REAL,REAL; :: thesis: ( seq1 . 0 = f & ( for n being Nat holds seq1 . (n + 1) = bD ((seq1 . n),h) ) & seq2 . 0 = f & ( for n being Nat holds seq2 . (n + 1) = bD ((seq2 . n),h) ) implies seq1 = seq2 )
assume that
A3: seq1 . 0 = f and
A4: for n being Nat holds seq1 . (n + 1) = bD ((seq1 . n),h) and
A5: seq2 . 0 = f and
A6: for n being Nat holds seq2 . (n + 1) = bD ((seq2 . n),h) ; :: thesis: seq1 = seq2
defpred S₁[ Nat] means seq1 . $1 = seq2 . $1;
A7: for k being Nat st S₁[k] holds
S₁[k + 1]

proof

let k be Nat; :: thesis: ( S₁[k] implies S₁[k + 1] )
assume A8: S₁[k] ; :: thesis: S₁[k + 1]
thus seq1 . (k + 1) = bD ((seq1 . k),h) by A4
.= seq2 . (k + 1) by A6, A8 ; :: thesis: verum

end;

A9: S₁[ 0 ] by A3, A5;
for n being Nat holds S₁[n] from NAT_1:sch 2(A9, A7);
then for n being Element of NAT holds S₁[n] ;
hence seq1 = seq2 by FUNCT_2:63; :: thesis: verum