let I be set ; :: thesis: for M being ManySortedSet of I
for P being MSSetOp of M
for E, T being Element of bool M st P is monotonic holds
P .. (E (/\) T) c= (P .. E) (/\) (P .. T)

let M be ManySortedSet of I; :: thesis: for P being MSSetOp of M
for E, T being Element of bool M st P is monotonic holds
P .. (E (/\) T) c= (P .. E) (/\) (P .. T)

let P be MSSetOp of M; :: thesis: for E, T being Element of bool M st P is monotonic holds
P .. (E (/\) T) c= (P .. E) (/\) (P .. T)

let E, T be Element of bool M; :: thesis: ( P is monotonic implies P .. (E (/\) T) c= (P .. E) (/\) (P .. T) )
assume A1: P is monotonic ; :: thesis: P .. (E (/\) T) c= (P .. E) (/\) (P .. T)
E in bool M by MSSUBFAM:12;
then E c= M by MBOOLEAN:1;
then E (/\) T c= M by MBOOLEAN:14;
then E (/\) T in bool M by MBOOLEAN:1;
then A2: E (/\) T is Element of bool M by MSSUBFAM:11;
E (/\) T c= T by PBOOLE:15;
then A3: P .. (E (/\) T) c= P .. T by A1, A2;
E (/\) T c= E by PBOOLE:15;
then P .. (E (/\) T) c= P .. E by A1, A2;
hence P .. (E (/\) T) c= (P .. E) (/\) (P .. T) by A3, PBOOLE:17; :: thesis: verum