deffunc H₁( object , object ) -> Complex = subtraction ($1,$2);
for f, g being Function of [:A,A:],A st ( for x, y being object st x in A & y in A holds
f . (x,y) = H₁(x,y) ) & ( for x, y being object st x in A & y in A holds
g . (x,y) = H₁(x,y) ) holds
f = g from NOMIN_4:sch 3();
hence for b₁, b₂ being Function of [:A,A:],A st ( for x, y being object st x in A & y in A holds
b₁ . (x,y) = subtraction (x,y) ) & ( for x, y being object st x in A & y in A holds
b₂ . (x,y) = subtraction (x,y) ) holds
b₁ = b₂ ; :: thesis: verum