consider X being set such that
A1: for x being object holds
( x in X iff ( x in PFuncs (D,ExtREAL) & S₁[x] ) ) from XBOOLE_0:sch 1();
take X ; :: thesis: for f being object holds
( f in X iff f is PartFunc of D,ExtREAL )
let f be object ; :: thesis: ( f in X iff f is PartFunc of D,ExtREAL )
thus ( f in X implies f is PartFunc of D,ExtREAL ) by A1; :: thesis: ( f is PartFunc of D,ExtREAL implies f in X )
assume A2: f is PartFunc of D,ExtREAL ; :: thesis: f in X
then f in PFuncs (D,ExtREAL) by PARTFUN1:45;
hence f in X by A1, A2; :: thesis: verum