defpred S1[ object , object ] means ex G being _Graph st
( G = F . $1 & $2 = the_Edges_of G );
A9: for x, y1, y2 being object st x in dom F & S1[x,y1] & S1[x,y2] holds
y1 = y2 ;
A10: for x being object st x in dom F holds
ex y being object st S1[x,y]
proof
let x be object ; :: thesis: ( x in dom F implies ex y being object st S1[x,y] )
assume x in dom F ; :: thesis: ex y being object st S1[x,y]
then reconsider G = F . x as _Graph by GLIB_000:def 53;
take the_Edges_of G ; :: thesis: S1[x, the_Edges_of G]
take G ; :: thesis: ( G = F . x & the_Edges_of G = the_Edges_of G )
thus ( G = F . x & the_Edges_of G = the_Edges_of G ) ; :: thesis: verum
end;
consider f being Function such that
A11: ( dom f = dom F & ( for x being object st x in dom F holds
S1[x,f . x] ) ) from FUNCT_1:sch 2(A9, A10);
 take f ; :: thesis: ( dom f = dom F & ( for x being object st x in dom F holds
ex G being _Graph st
( G = F . x & f . x = the_Edges_of G ) ) )
thus ( dom f = dom F & ( for x being object st x in dom F holds
ex G being _Graph st
( G = F . x & f . x = the_Edges_of G ) ) ) by A11; :: thesis: verum