defpred S1[ Element of NAT , set ] means $2 = (G . $1) vol ;
A1: for n being Element of NAT ex y being Element of Funcs NAT ,ExtREAL st S1[n,y]
proof
let n be Element of NAT ; :: thesis: ex y being Element of Funcs NAT ,ExtREAL st S1[n,y]
(G . n) vol is Element of Funcs NAT ,ExtREAL by FUNCT_2:11;
hence ex y being Element of Funcs NAT ,ExtREAL st S1[n,y] ; :: thesis: verum
end;
ex G0 being Function of NAT ,(Funcs NAT ,ExtREAL ) st
for n being Element of NAT holds S1[n,G0 . n] from FUNCT_2:sch 3(A1);
hence ex b1 being Function of NAT ,(Funcs NAT ,ExtREAL ) st
for n being Element of NAT holds b1 . n = (G . n) vol ; :: thesis: verum