let S be non empty set ; :: thesis: ex o being BinOp of (ModelSP S) st
for f, g being set st f in ModelSP S & g in ModelSP S holds
o . f,g = And_0 f,g,S
set M = ModelSP S;
deffunc H₁( Element of ModelSP S, Element of ModelSP S) -> Element of ModelSP S = And_0 $1,$2,S;
consider o being BinOp of (ModelSP S) such that
A1: for f, g being Element of ModelSP S holds o . f,g = H₁(f,g) from BINOP_1:sch 4();
for f, g being set st f in ModelSP S & g in ModelSP S holds
o . f,g = And_0 f,g,S by A1;
hence ex o being BinOp of (ModelSP S) st
for f, g being set st f in ModelSP S & g in ModelSP S holds
o . f,g = And_0 f,g,S ; :: thesis: verum