let seq1, seq2 be Complex_Sequence; :: thesis: ( seq1 . 0 = 0 & ( for k being Nat holds seq1 . (k + 1) = seq . k ) & seq2 . 0 = 0 & ( for k being Nat holds seq2 . (k + 1) = seq . k ) implies seq1 = seq2 )
assume that
A2: seq1 . 0 = 0 and
A3: for n being Nat holds seq1 . (n + 1) = seq . n and
A4: seq2 . 0 = 0 and
A5: for n being Nat holds seq2 . (n + 1) = seq . n ; :: thesis: seq1 = seq2
defpred S₁[ Nat] means seq1 . $1 = seq2 . $1;
A6: S₁[ 0 ] by A2, A4;
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 seq1 . k = seq2 . k ; :: thesis: S₁[k + 1]
thus seq1 . (k + 1) = seq . k by A3
.= seq2 . (k + 1) by A5 ; :: thesis: verum

end;

for n being Nat holds S₁[n] from NAT_1:sch 2(A6, A7);
hence seq1 = seq2 ; :: thesis: verum