defpred S2[ object ] means ex g being Function st
( $1 = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) );
consider A being set such that
A1: for x being object holds
( x in A iff ( x in PFuncs ((dom f),(union (rng f))) & S2[x] ) ) from XBOOLE_0:sch 1();
now :: thesis: for x being object holds
( ( x in A implies ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) ) & ( ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) implies x in A ) )
let x be object ; :: thesis: ( ( x in A implies ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) ) & ( ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) implies x in A ) )

thus ( x in A implies ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) ) by A1; :: thesis: ( ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) implies x in A )

given g being Function such that A2: x = g and
A3: dom g c= dom f and
A4: for x being object st x in dom g holds
g . x in f . x ; :: thesis: x in A
rng g c= union (rng f)
proof
let y be object ; :: according to TARSKI:def 3 :: thesis: ( not y in rng g or y in union (rng f) )
assume y in rng g ; :: thesis: y in union (rng f)
then consider z being object such that
A5: z in dom g and
A6: y = g . z by FUNCT_1:def 3;
A7: g . z in f . z by A4, A5;
f . z in rng f by A3, A5, FUNCT_1:def 3;
hence y in union (rng f) by A6, A7, TARSKI:def 4; :: thesis: verum
end;
then x in PFuncs ((dom f),(union (rng f))) by A2, A3, PARTFUN1:def 3;
hence x in A by A1, A2, A3, A4; :: thesis: verum
end;
hence ex b1 being set st
for x being object holds
( x in b1 iff ex g being Function st
( x = g & dom g c= dom f & ( for x being object st x in dom g holds
g . x in f . x ) ) ) ; :: thesis: verum