This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem lsmssass

Description: Group sum is associative, subset version (see lsmass ). (Contributed by Thierry Arnoux, 1-Jun-2024)

Ref Expression
Hypotheses lsmssass.p 
|- .(+) = ( LSSum ` G )
lsmssass.b 
|- B = ( Base ` G )
lsmssass.g 
|- ( ph -> G e. Mnd )
lsmssass.r 
|- ( ph -> R C_ B )
lsmssass.t 
|- ( ph -> T C_ B )
lsmssass.u 
|- ( ph -> U C_ B )
Assertion lsmssass 
|- ( ph -> ( ( R .(+) T ) .(+) U ) = ( R .(+) ( T .(+) U ) ) )

Proof

Step Hyp Ref Expression
1 lsmssass.p 
 |-  .(+) = ( LSSum ` G )
2 lsmssass.b 
 |-  B = ( Base ` G )
3 lsmssass.g 
 |-  ( ph -> G e. Mnd )
4 lsmssass.r 
 |-  ( ph -> R C_ B )
5 lsmssass.t 
 |-  ( ph -> T C_ B )
6 lsmssass.u 
 |-  ( ph -> U C_ B )
7 eqid 
 |-  ( +g ` G ) = ( +g ` G )
8 2 7 1 lsmvalx 
 |-  ( ( G e. Mnd /\ R C_ B /\ T C_ B ) -> ( R .(+) T ) = ran ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) )
9 3 4 5 8 syl3anc 
 |-  ( ph -> ( R .(+) T ) = ran ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) )
10 9 rexeqdv 
 |-  ( ph -> ( E. y e. ( R .(+) T ) E. c e. U x = ( y ( +g ` G ) c ) <-> E. y e. ran ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) E. c e. U x = ( y ( +g ` G ) c ) ) )
11 ovex 
 |-  ( a ( +g ` G ) b ) e. _V
12 11 rgen2w 
 |-  A. a e. R A. b e. T ( a ( +g ` G ) b ) e. _V
13 eqid 
 |-  ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) = ( a e. R , b e. T |-> ( a ( +g ` G ) b ) )
14 oveq1 
 |-  ( y = ( a ( +g ` G ) b ) -> ( y ( +g ` G ) c ) = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) )
15 14 eqeq2d 
 |-  ( y = ( a ( +g ` G ) b ) -> ( x = ( y ( +g ` G ) c ) <-> x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
16 15 rexbidv 
 |-  ( y = ( a ( +g ` G ) b ) -> ( E. c e. U x = ( y ( +g ` G ) c ) <-> E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
17 13 16 rexrnmpo 
 |-  ( A. a e. R A. b e. T ( a ( +g ` G ) b ) e. _V -> ( E. y e. ran ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) E. c e. U x = ( y ( +g ` G ) c ) <-> E. a e. R E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
18 12 17 ax-mp 
 |-  ( E. y e. ran ( a e. R , b e. T |-> ( a ( +g ` G ) b ) ) E. c e. U x = ( y ( +g ` G ) c ) <-> E. a e. R E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) )
19 10 18 bitrdi 
 |-  ( ph -> ( E. y e. ( R .(+) T ) E. c e. U x = ( y ( +g ` G ) c ) <-> E. a e. R E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
20 2 7 1 lsmvalx 
 |-  ( ( G e. Mnd /\ T C_ B /\ U C_ B ) -> ( T .(+) U ) = ran ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) )
21 3 5 6 20 syl3anc 
 |-  ( ph -> ( T .(+) U ) = ran ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) )
22 21 rexeqdv 
 |-  ( ph -> ( E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) <-> E. z e. ran ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) x = ( a ( +g ` G ) z ) ) )
23 ovex 
 |-  ( b ( +g ` G ) c ) e. _V
24 23 rgen2w 
 |-  A. b e. T A. c e. U ( b ( +g ` G ) c ) e. _V
25 eqid 
 |-  ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) = ( b e. T , c e. U |-> ( b ( +g ` G ) c ) )
26 oveq2 
 |-  ( z = ( b ( +g ` G ) c ) -> ( a ( +g ` G ) z ) = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) )
27 26 eqeq2d 
 |-  ( z = ( b ( +g ` G ) c ) -> ( x = ( a ( +g ` G ) z ) <-> x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
28 25 27 rexrnmpo 
 |-  ( A. b e. T A. c e. U ( b ( +g ` G ) c ) e. _V -> ( E. z e. ran ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) x = ( a ( +g ` G ) z ) <-> E. b e. T E. c e. U x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
29 24 28 ax-mp 
 |-  ( E. z e. ran ( b e. T , c e. U |-> ( b ( +g ` G ) c ) ) x = ( a ( +g ` G ) z ) <-> E. b e. T E. c e. U x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) )
30 22 29 bitrdi 
 |-  ( ph -> ( E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) <-> E. b e. T E. c e. U x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
31 30 adantr 
 |-  ( ( ph /\ a e. R ) -> ( E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) <-> E. b e. T E. c e. U x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
32 3 ad2antrr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> G e. Mnd )
33 4 ad2antrr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> R C_ B )
34 simplr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> a e. R )
35 33 34 sseldd 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> a e. B )
36 5 ad2antrr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> T C_ B )
37 simprl 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> b e. T )
38 36 37 sseldd 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> b e. B )
39 6 ad2antrr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> U C_ B )
40 simprr 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> c e. U )
41 39 40 sseldd 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> c e. B )
42 2 7 mndass 
 |-  ( ( G e. Mnd /\ ( a e. B /\ b e. B /\ c e. B ) ) -> ( ( a ( +g ` G ) b ) ( +g ` G ) c ) = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) )
43 32 35 38 41 42 syl13anc 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> ( ( a ( +g ` G ) b ) ( +g ` G ) c ) = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) )
44 43 eqeq2d 
 |-  ( ( ( ph /\ a e. R ) /\ ( b e. T /\ c e. U ) ) -> ( x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) <-> x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
45 44 2rexbidva 
 |-  ( ( ph /\ a e. R ) -> ( E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) <-> E. b e. T E. c e. U x = ( a ( +g ` G ) ( b ( +g ` G ) c ) ) ) )
46 31 45 bitr4d 
 |-  ( ( ph /\ a e. R ) -> ( E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) <-> E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
47 46 rexbidva 
 |-  ( ph -> ( E. a e. R E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) <-> E. a e. R E. b e. T E. c e. U x = ( ( a ( +g ` G ) b ) ( +g ` G ) c ) ) )
48 19 47 bitr4d 
 |-  ( ph -> ( E. y e. ( R .(+) T ) E. c e. U x = ( y ( +g ` G ) c ) <-> E. a e. R E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) ) )
49 2 1 lsmssv 
 |-  ( ( G e. Mnd /\ R C_ B /\ T C_ B ) -> ( R .(+) T ) C_ B )
50 3 4 5 49 syl3anc 
 |-  ( ph -> ( R .(+) T ) C_ B )
51 2 7 1 lsmelvalx 
 |-  ( ( G e. Mnd /\ ( R .(+) T ) C_ B /\ U C_ B ) -> ( x e. ( ( R .(+) T ) .(+) U ) <-> E. y e. ( R .(+) T ) E. c e. U x = ( y ( +g ` G ) c ) ) )
52 3 50 6 51 syl3anc 
 |-  ( ph -> ( x e. ( ( R .(+) T ) .(+) U ) <-> E. y e. ( R .(+) T ) E. c e. U x = ( y ( +g ` G ) c ) ) )
53 2 1 lsmssv 
 |-  ( ( G e. Mnd /\ T C_ B /\ U C_ B ) -> ( T .(+) U ) C_ B )
54 3 5 6 53 syl3anc 
 |-  ( ph -> ( T .(+) U ) C_ B )
55 2 7 1 lsmelvalx 
 |-  ( ( G e. Mnd /\ R C_ B /\ ( T .(+) U ) C_ B ) -> ( x e. ( R .(+) ( T .(+) U ) ) <-> E. a e. R E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) ) )
56 3 4 54 55 syl3anc 
 |-  ( ph -> ( x e. ( R .(+) ( T .(+) U ) ) <-> E. a e. R E. z e. ( T .(+) U ) x = ( a ( +g ` G ) z ) ) )
57 48 52 56 3bitr4d 
 |-  ( ph -> ( x e. ( ( R .(+) T ) .(+) U ) <-> x e. ( R .(+) ( T .(+) U ) ) ) )
58 57 eqrdv 
 |-  ( ph -> ( ( R .(+) T ) .(+) U ) = ( R .(+) ( T .(+) U ) ) )