set a = the Element of A;
reconsider X = 1 |-> the Element of A as FinSequence of A ;
A1: X is disjoint_valued
proof
let x, y be object ; :: according to PROB_2:def 2 :: thesis: ( x = y or X . x misses X . y )
assume A2: x <> y ; :: thesis: X . x misses X . y
per cases ( ( x in dom X & y in dom X ) or not x in dom X or not y in dom X ) ;
end;
end;
not X is empty by FUNCOP_1:13, RELAT_1:38;
hence ex b1 being FinSequence of A st
( not b1 is empty & b1 is disjoint_valued ) by A1; :: thesis: verum