let A, B be strict multMagma ; :: thesis: ( ( for x being set holds
( ( x in the carrier of A implies x is Homeomorphism of T ) & ( x is Homeomorphism of T implies x in the carrier of A ) & ( for f, g being Homeomorphism of T holds the multF of A . f,g = g * f ) ) ) & ( for x being set holds
( ( x in the carrier of B implies x is Homeomorphism of T ) & ( x is Homeomorphism of T implies x in the carrier of B ) & ( for f, g being Homeomorphism of T holds the multF of B . f,g = g * f ) ) ) implies A = B )
assume that
A5:
for x being set holds
( ( x in the carrier of A implies x is Homeomorphism of T ) & ( x is Homeomorphism of T implies x in the carrier of A ) & ( for f, g being Homeomorphism of T holds the multF of A . f,g = g * f ) )
and
A6:
for x being set holds
( ( x in the carrier of B implies x is Homeomorphism of T ) & ( x is Homeomorphism of T implies x in the carrier of B ) & ( for f, g being Homeomorphism of T holds the multF of B . f,g = g * f ) )
; :: thesis: A = B
defpred S1[ set ] means $1 is Homeomorphism of T;
A7:
for x being set holds
( x in the carrier of A iff S1[x] )
by A5;
A8:
for x being set holds
( x in the carrier of B iff S1[x] )
by A6;
A9:
the carrier of A = the carrier of B
from XBOOLE_0:sch 2(A7, A8);
for c, d being set st c in the carrier of A & d in the carrier of A holds
the multF of A . c,d = the multF of B . c,d
hence
A = B
by A9, BINOP_1:1; :: thesis: verum