consider X being set such that

A1: for x being object holds

( x in X iff ( x in Funcs (D,ExtREAL) & S_{1}[x] ) )
from XBOOLE_0:sch 1();

take X ; :: thesis: for f being object holds

( f in X iff f is Function of D,ExtREAL )

let f be object ; :: thesis: ( f in X iff f is Function of D,ExtREAL )

thus ( f in X implies f is Function of D,ExtREAL ) by A1; :: thesis: ( f is Function of D,ExtREAL implies f in X )

assume A2: f is Function of D,ExtREAL ; :: thesis: f in X

then f in Funcs (D,ExtREAL) by FUNCT_2:8;

hence f in X by A1, A2; :: thesis: verum

A1: for x being object holds

( x in X iff ( x in Funcs (D,ExtREAL) & S

take X ; :: thesis: for f being object holds

( f in X iff f is Function of D,ExtREAL )

let f be object ; :: thesis: ( f in X iff f is Function of D,ExtREAL )

thus ( f in X implies f is Function of D,ExtREAL ) by A1; :: thesis: ( f is Function of D,ExtREAL implies f in X )

assume A2: f is Function of D,ExtREAL ; :: thesis: f in X

then f in Funcs (D,ExtREAL) by FUNCT_2:8;

hence f in X by A1, A2; :: thesis: verum