defpred S1[ Element of MSSub U0, Element of MSSub U0, Element of MSSub U0] means for U1, U2 being strict MSSubAlgebra of U0 st $1 = U1 & $2 = U2 holds
$3 = U1 "\/" U2;
A1:
for x, y being Element of MSSub U0 ex z being Element of MSSub U0 st S1[x,y,z]
consider o being BinOp of (MSSub U0) such that
A2:
for a, b being Element of MSSub U0 holds S1[a,b,o . (a,b)]
from BINOP_1:sch 3(A1);
take
o
; for x, y being Element of MSSub U0
for U1, U2 being strict MSSubAlgebra of U0 st x = U1 & y = U2 holds
o . (x,y) = U1 "\/" U2
thus
for x, y being Element of MSSub U0
for U1, U2 being strict MSSubAlgebra of U0 st x = U1 & y = U2 holds
o . (x,y) = U1 "\/" U2
by A2; verum