per cases ( f = {} or f <> {} ) ;
suppose A1: f = {} ; :: thesis: ex b1 being DoubleReorganization of dom f st
( ( for n being Nat ex x being object st x = f . (b1 _ (n,1)) & ... & x = f . (b1 _ (n,(len (b1 . n)))) ) & ( for n1, n2, i1, i2 being Nat st i1 in dom (b1 . n1) & i2 in dom (b1 . n2) & f . (b1 _ (n1,i1)) = f . (b1 _ (n2,i2)) holds
n1 = n2 ) )

take o = the DoubleReorganization of dom f; :: thesis: ( ( for n being Nat ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n)))) ) & ( for n1, n2, i1, i2 being Nat st i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) holds
n1 = n2 ) )

thus for n being Nat ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n)))) :: thesis: for n1, n2, i1, i2 being Nat st i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) holds
n1 = n2
proof
let n be Nat; :: thesis: ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n))))
take x = {} ; :: thesis: x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n))))
thus x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n)))) by A1; :: thesis: verum
end;
let n1, n2, i1, i2 be Nat; :: thesis: ( i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) implies n1 = n2 )
thus ( i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) implies n1 = n2 ) by A1; :: thesis: verum
end;
suppose f <> {} ; :: thesis: ex b1 being DoubleReorganization of dom f st
( ( for n being Nat ex x being object st x = f . (b1 _ (n,1)) & ... & x = f . (b1 _ (n,(len (b1 . n)))) ) & ( for n1, n2, i1, i2 being Nat st i1 in dom (b1 . n1) & i2 in dom (b1 . n2) & f . (b1 _ (n1,i1)) = f . (b1 _ (n2,i2)) holds
n1 = n2 ) )

then reconsider F = rng f as non empty finite set ;
set c = the one-to-one onto FinSequence of F;
A2: rng the one-to-one onto FinSequence of F = F by FUNCT_2:def 3;
then reconsider C = the one-to-one onto FinSequence of F as non empty FinSequence ;
consider o being len C -element DoubleReorganization of dom f such that
A3: for n being Nat holds the one-to-one onto FinSequence of F . n = f . (o _ (n,1)) & ... & the one-to-one onto FinSequence of F . n = f . (o _ (n,(len (o . n)))) by Th38, A2;
take o ; :: thesis: ( ( for n being Nat ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n)))) ) & ( for n1, n2, i1, i2 being Nat st i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) holds
n1 = n2 ) )

thus for n being Nat ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n)))) :: thesis: for n1, n2, i1, i2 being Nat st i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) holds
n1 = n2
proof
let n be Nat; :: thesis: ex x being object st x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n))))
take x = the one-to-one onto FinSequence of F . n; :: thesis: x = f . (o _ (n,1)) & ... & x = f . (o _ (n,(len (o . n))))
let i be Nat; :: thesis: ( not 1 <= i or not i <= len (o . n) or x = f . (o _ (n,i)) )
assume A4: ( 1 <= i & i <= len (o . n) ) ; :: thesis: x = f . (o _ (n,i))
the one-to-one onto FinSequence of F . n = f . (o _ (n,1)) & ... & the one-to-one onto FinSequence of F . n = f . (o _ (n,(len (o . n)))) by A3;
hence x = f . (o _ (n,i)) by A4; :: thesis: verum
end;
let n1, n2, i1, i2 be Nat; :: thesis: ( i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) implies n1 = n2 )
assume A5: ( i1 in dom (o . n1) & i2 in dom (o . n2) & f . (o _ (n1,i1)) = f . (o _ (n2,i2)) ) ; :: thesis: n1 = n2
A6: the one-to-one onto FinSequence of F . n1 = f . (o _ (n1,1)) & ... & the one-to-one onto FinSequence of F . n1 = f . (o _ (n1,(len (o . n1)))) by A3;
A7: the one-to-one onto FinSequence of F . n2 = f . (o _ (n2,1)) & ... & the one-to-one onto FinSequence of F . n2 = f . (o _ (n2,(len (o . n2)))) by A3;
( 1 <= i1 & i1 <= len (o . n1) ) by A5, FINSEQ_3:25;
then A8: the one-to-one onto FinSequence of F . n1 = f . (o _ (n1,i1)) by A6;
A9: ( 1 <= i2 & i2 <= len (o . n2) ) by A5, FINSEQ_3:25;
len o = len C by CARD_1:def 7;
then A10: dom o = dom the one-to-one onto FinSequence of F by FINSEQ_3:29;
A11: n1 in dom o n2 in dom o hence n1 = n2 by FUNCT_1:def 4, A9, A7, A5, A8, A11, A10; :: thesis: verum
end;
end;