reconsider F3 = F1, F4 = F2 as FinSequence of COMPLEX by Lm2;
let F be FinSequence of COMPLEX ; :: thesis: ( F = F1 + F2 iff F = addcomplex .: (F1,F2) )
dom addcomplex = [:COMPLEX,COMPLEX:] by FUNCT_2:def 1;
then [:(rng F3),(rng F4):] c= dom addcomplex by ZFMISC_1:96;
then A1: dom (addcomplex .: (F1,F2)) = (dom F1) /\ (dom F2) by FUNCOP_1:69;
A2: dom (F1 + F2) = (dom F1) /\ (dom F2) by VALUED_1:def 1;
thus ( F = F1 + F2 implies F = addcomplex .: (F1,F2) ) :: thesis: ( F = addcomplex .: (F1,F2) implies F = F1 + F2 )

proof

assume A3: F = F1 + F2 ; :: thesis: F = addcomplex .: (F1,F2)
for z being set st z in dom (addcomplex .: (F1,F2)) holds
F . z = addcomplex . ((F1 . z),(F2 . z))

proof

let z be set ; :: thesis: ( z in dom (addcomplex .: (F1,F2)) implies F . z = addcomplex . ((F1 . z),(F2 . z)) )
assume z in dom (addcomplex .: (F1,F2)) ; :: thesis: F . z = addcomplex . ((F1 . z),(F2 . z))
hence F . z = (F1 . z) + (F2 . z) by A2, A1, A3, VALUED_1:def 1
.= addcomplex . ((F1 . z),(F2 . z)) by BINOP_2:def 3 ;
:: thesis: verum

end;

hence F = addcomplex .: (F1,F2) by A2, A1, A3, FUNCOP_1:21; :: thesis: verum

end;

assume A4: F = addcomplex .: (F1,F2) ; :: thesis: F = F1 + F2

now :: thesis: for c being object st c in dom F holds
F . c = (F1 . c) + (F2 . c)

let c be object ; :: thesis: ( c in dom F implies F . c = (F1 . c) + (F2 . c) )
assume c in dom F ; :: thesis: F . c = (F1 . c) + (F2 . c)
hence F . c = addcomplex . ((F1 . c),(F2 . c)) by A4, FUNCOP_1:22
.= (F1 . c) + (F2 . c) by BINOP_2:def 3 ;
:: thesis: verum

end;

hence F = F1 + F2 by A1, A4, VALUED_1:def 1; :: thesis: verum