Metamath Proof Explorer

Theorem sgrppropd

Description: If two structures are sets, have the same base set, and the values of their group (addition) operations are equal for all pairs of elements of the base set, one is a semigroup iff the other one is. (Contributed by AV, 15-Feb-2025)

Ref Expression
Hypotheses sgrppropd.k 
|- ( ph -> K e. V )
sgrppropd.l 
|- ( ph -> L e. W )
sgrppropd.1 
|- ( ph -> B = ( Base ` K ) )
sgrppropd.2 
|- ( ph -> B = ( Base ` L ) )
sgrppropd.3 
|- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) = ( x ( +g ` L ) y ) )
Assertion sgrppropd 
|- ( ph -> ( K e. Smgrp <-> L e. Smgrp ) )

Proof

Step Hyp Ref Expression
1 sgrppropd.k 
 |-  ( ph -> K e. V )
2 sgrppropd.l 
 |-  ( ph -> L e. W )
3 sgrppropd.1 
 |-  ( ph -> B = ( Base ` K ) )
4 sgrppropd.2 
 |-  ( ph -> B = ( Base ` L ) )
5 sgrppropd.3 
 |-  ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) = ( x ( +g ` L ) y ) )
6 simplr 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> K e. Smgrp )
7 simprl 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> x e. B )
8 3 ad2antrr 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> B = ( Base ` K ) )
9 7 8 eleqtrd 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> x e. ( Base ` K ) )
10 simprr 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> y e. B )
11 10 8 eleqtrd 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> y e. ( Base ` K ) )
12 eqid 
 |-  ( Base ` K ) = ( Base ` K )
13 eqid 
 |-  ( +g ` K ) = ( +g ` K )
14 12 13 sgrpcl 
 |-  ( ( K e. Smgrp /\ x e. ( Base ` K ) /\ y e. ( Base ` K ) ) -> ( x ( +g ` K ) y ) e. ( Base ` K ) )
15 6 9 11 14 syl3anc 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) e. ( Base ` K ) )
16 15 8 eleqtrrd 
 |-  ( ( ( ph /\ K e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) e. B )
17 16 ralrimivva 
 |-  ( ( ph /\ K e. Smgrp ) -> A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B )
18 17 ex 
 |-  ( ph -> ( K e. Smgrp -> A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) )
19 simplr 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> L e. Smgrp )
20 simprl 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> x e. B )
21 4 ad2antrr 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> B = ( Base ` L ) )
22 20 21 eleqtrd 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> x e. ( Base ` L ) )
23 simprr 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> y e. B )
24 23 21 eleqtrd 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> y e. ( Base ` L ) )
25 eqid 
 |-  ( Base ` L ) = ( Base ` L )
26 eqid 
 |-  ( +g ` L ) = ( +g ` L )
27 25 26 sgrpcl 
 |-  ( ( L e. Smgrp /\ x e. ( Base ` L ) /\ y e. ( Base ` L ) ) -> ( x ( +g ` L ) y ) e. ( Base ` L ) )
28 19 22 24 27 syl3anc 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` L ) y ) e. ( Base ` L ) )
29 5 adantlr 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) = ( x ( +g ` L ) y ) )
30 28 29 21 3eltr4d 
 |-  ( ( ( ph /\ L e. Smgrp ) /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) e. B )
31 30 ralrimivva 
 |-  ( ( ph /\ L e. Smgrp ) -> A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B )
32 31 ex 
 |-  ( ph -> ( L e. Smgrp -> A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) )
33 12 13 issgrpv 
 |-  ( K e. V -> ( K e. Smgrp <-> A. u e. ( Base ` K ) A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
34 1 33 syl 
 |-  ( ph -> ( K e. Smgrp <-> A. u e. ( Base ` K ) A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
35 34 adantr 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( K e. Smgrp <-> A. u e. ( Base ` K ) A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
36 5 oveqrspc2v 
 |-  ( ( ph /\ ( u e. B /\ v e. B ) ) -> ( u ( +g ` K ) v ) = ( u ( +g ` L ) v ) )
37 36 adantlr 
 |-  ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) -> ( u ( +g ` K ) v ) = ( u ( +g ` L ) v ) )
38 37 eleq1d 
 |-  ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) -> ( ( u ( +g ` K ) v ) e. B <-> ( u ( +g ` L ) v ) e. B ) )
39 simplll 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ph )
40 simplrl 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> u e. B )
41 simplrr 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> v e. B )
42 simpllr 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B )
43 ovrspc2v 
 |-  ( ( ( u e. B /\ v e. B ) /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( u ( +g ` K ) v ) e. B )
44 40 41 42 43 syl21anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( u ( +g ` K ) v ) e. B )
45 simpr 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> w e. B )
46 5 oveqrspc2v 
 |-  ( ( ph /\ ( ( u ( +g ` K ) v ) e. B /\ w e. B ) ) -> ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( ( u ( +g ` K ) v ) ( +g ` L ) w ) )
47 39 44 45 46 syl12anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( ( u ( +g ` K ) v ) ( +g ` L ) w ) )
48 39 40 41 36 syl12anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( u ( +g ` K ) v ) = ( u ( +g ` L ) v ) )
49 48 oveq1d 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( ( u ( +g ` K ) v ) ( +g ` L ) w ) = ( ( u ( +g ` L ) v ) ( +g ` L ) w ) )
50 47 49 eqtrd 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( ( u ( +g ` L ) v ) ( +g ` L ) w ) )
51 ovrspc2v 
 |-  ( ( ( v e. B /\ w e. B ) /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( v ( +g ` K ) w ) e. B )
52 41 45 42 51 syl21anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( v ( +g ` K ) w ) e. B )
53 5 oveqrspc2v 
 |-  ( ( ph /\ ( u e. B /\ ( v ( +g ` K ) w ) e. B ) ) -> ( u ( +g ` K ) ( v ( +g ` K ) w ) ) = ( u ( +g ` L ) ( v ( +g ` K ) w ) ) )
54 39 40 52 53 syl12anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( u ( +g ` K ) ( v ( +g ` K ) w ) ) = ( u ( +g ` L ) ( v ( +g ` K ) w ) ) )
55 5 oveqrspc2v 
 |-  ( ( ph /\ ( v e. B /\ w e. B ) ) -> ( v ( +g ` K ) w ) = ( v ( +g ` L ) w ) )
56 39 41 45 55 syl12anc 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( v ( +g ` K ) w ) = ( v ( +g ` L ) w ) )
57 56 oveq2d 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( u ( +g ` L ) ( v ( +g ` K ) w ) ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) )
58 54 57 eqtrd 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( u ( +g ` K ) ( v ( +g ` K ) w ) ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) )
59 50 58 eqeq12d 
 |-  ( ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) /\ w e. B ) -> ( ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) <-> ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) )
60 59 ralbidva 
 |-  ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) -> ( A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) <-> A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) )
61 38 60 anbi12d 
 |-  ( ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) /\ ( u e. B /\ v e. B ) ) -> ( ( ( u ( +g ` K ) v ) e. B /\ A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> ( ( u ( +g ` L ) v ) e. B /\ A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
62 61 2ralbidva 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. u e. B A. v e. B ( ( u ( +g ` K ) v ) e. B /\ A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> A. u e. B A. v e. B ( ( u ( +g ` L ) v ) e. B /\ A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
63 3 adantr 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> B = ( Base ` K ) )
64 63 eleq2d 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( ( u ( +g ` K ) v ) e. B <-> ( u ( +g ` K ) v ) e. ( Base ` K ) ) )
65 63 raleqdv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) <-> A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) )
66 64 65 anbi12d 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( ( ( u ( +g ` K ) v ) e. B /\ A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
67 63 66 raleqbidv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. v e. B ( ( u ( +g ` K ) v ) e. B /\ A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
68 63 67 raleqbidv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. u e. B A. v e. B ( ( u ( +g ` K ) v ) e. B /\ A. w e. B ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> A. u e. ( Base ` K ) A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) ) )
69 4 adantr 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> B = ( Base ` L ) )
70 69 eleq2d 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( ( u ( +g ` L ) v ) e. B <-> ( u ( +g ` L ) v ) e. ( Base ` L ) ) )
71 69 raleqdv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) <-> A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) )
72 70 71 anbi12d 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( ( ( u ( +g ` L ) v ) e. B /\ A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) <-> ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
73 69 72 raleqbidv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. v e. B ( ( u ( +g ` L ) v ) e. B /\ A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) <-> A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
74 69 73 raleqbidv 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. u e. B A. v e. B ( ( u ( +g ` L ) v ) e. B /\ A. w e. B ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) <-> A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
75 62 68 74 3bitr3d 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. u e. ( Base ` K ) A. v e. ( Base ` K ) ( ( u ( +g ` K ) v ) e. ( Base ` K ) /\ A. w e. ( Base ` K ) ( ( u ( +g ` K ) v ) ( +g ` K ) w ) = ( u ( +g ` K ) ( v ( +g ` K ) w ) ) ) <-> A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
76 25 26 issgrpv 
 |-  ( L e. W -> ( L e. Smgrp <-> A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
77 2 76 syl 
 |-  ( ph -> ( L e. Smgrp <-> A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) ) )
78 77 bicomd 
 |-  ( ph -> ( A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) <-> L e. Smgrp ) )
79 78 adantr 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( A. u e. ( Base ` L ) A. v e. ( Base ` L ) ( ( u ( +g ` L ) v ) e. ( Base ` L ) /\ A. w e. ( Base ` L ) ( ( u ( +g ` L ) v ) ( +g ` L ) w ) = ( u ( +g ` L ) ( v ( +g ` L ) w ) ) ) <-> L e. Smgrp ) )
80 35 75 79 3bitrd 
 |-  ( ( ph /\ A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B ) -> ( K e. Smgrp <-> L e. Smgrp ) )
81 80 ex 
 |-  ( ph -> ( A. x e. B A. y e. B ( x ( +g ` K ) y ) e. B -> ( K e. Smgrp <-> L e. Smgrp ) ) )
82 18 32 81 pm5.21ndd 
 |-  ( ph -> ( K e. Smgrp <-> L e. Smgrp ) )