defpred S₁[ object ] means $1 is Tolerance of X;
consider a being set such that
A1: for x being object holds
( x in a iff ( x in bool [:X,X:] & S₁[x] ) ) from XBOOLE_0:sch 1();
take a ; :: thesis: for x being set holds
( x in a iff x is Tolerance of X )
let x be set ; :: thesis: ( x in a iff x is Tolerance of X )
thus ( x in a implies x is Tolerance of X ) by A1; :: thesis: ( x is Tolerance of X implies x in a )
assume x is Tolerance of X ; :: thesis: x in a
hence x in a by A1; :: thesis: verum