let f, h be Domain-Sequence; :: thesis: ( len f = len G & ( for j being Element of dom G holds f . j = the carrier of (G . j) ) & len h = len G & ( for j being Element of dom G holds h . j = the carrier of (G . j) ) implies f = h )
assume that
A7: ( len f = len G & ( for j being Element of dom G holds f . j = the carrier of (G . j) ) ) and
A8: ( len h = len G & ( for j being Element of dom G holds h . j = the carrier of (G . j) ) ) ; :: thesis: f = h
reconsider f' = f, h' = h as FinSequence ;
A9: ( dom f' = Seg (len f') & dom h' = Seg (len h') ) by FINSEQ_1:def 3;

now

let j be Nat; :: thesis: ( j in dom f' implies f' . j = h' . j )
assume j in dom f' ; :: thesis: f' . j = h' . j
then reconsider j' = j as Element of dom G by A7, FINSEQ_3:31;
f' . j = the carrier of (G . j') by A7;
hence f' . j = h' . j by A8; :: thesis: verum

end;

hence f = h by A7, A8, A9, FINSEQ_1:17; :: thesis: verum