Metamath Proof Explorer


Theorem gsumcom2

Description: Two-dimensional commutation of a group sum. Note that while A and D are constants w.r.t. j , k , C ( j ) and E ( k ) are not. (Contributed by Mario Carneiro, 28-Dec-2014)

Ref Expression
Hypotheses gsum2d2.b ⊢ B = Base G
gsum2d2.z ⊢ 0 ˙ = 0 G
gsum2d2.g ⊢ φ → G ∈ CMnd
gsum2d2.a ⊢ φ → A ∈ V
gsum2d2.r ⊢ φ ∧ j ∈ A → C ∈ W
gsum2d2.f ⊢ φ ∧ j ∈ A ∧ k ∈ C → X ∈ B
gsum2d2.u ⊢ φ → U ∈ Fin
gsum2d2.n ⊢ φ ∧ j ∈ A ∧ k ∈ C ∧ ¬ j U k → X = 0 ˙
gsumcom2.d ⊢ φ → D ∈ Y
gsumcom2.c ⊢ φ → j ∈ A ∧ k ∈ C ↔ k ∈ D ∧ j ∈ E
Assertion gsumcom2 ⊢ φ → ∑ G j ∈ A , k ∈ C ⟼ X = ∑ G k ∈ D , j ∈ E ⟼ X

Proof

Step Hyp Ref Expression
1 gsum2d2.b ⊢ B = Base G
2 gsum2d2.z ⊢ 0 ˙ = 0 G
3 gsum2d2.g ⊢ φ → G ∈ CMnd
4 gsum2d2.a ⊢ φ → A ∈ V
5 gsum2d2.r ⊢ φ ∧ j ∈ A → C ∈ W
6 gsum2d2.f ⊢ φ ∧ j ∈ A ∧ k ∈ C → X ∈ B
7 gsum2d2.u ⊢ φ → U ∈ Fin
8 gsum2d2.n ⊢ φ ∧ j ∈ A ∧ k ∈ C ∧ ¬ j U k → X = 0 ˙
9 gsumcom2.d ⊢ φ → D ∈ Y
10 gsumcom2.c ⊢ φ → j ∈ A ∧ k ∈ C ↔ k ∈ D ∧ j ∈ E
11 vsnex ⊢ j ∈ V
12 xpexg ⊢ j ∈ V ∧ C ∈ W → j × C ∈ V
13 11 5 12 sylancr ⊢ φ ∧ j ∈ A → j × C ∈ V
14 13 ralrimiva ⊢ φ → ∀ j ∈ A j × C ∈ V
15 iunexg ⊢ A ∈ V ∧ ∀ j ∈ A j × C ∈ V → ⋃ j ∈ A j × C ∈ V
16 4 14 15 syl2anc ⊢ φ → ⋃ j ∈ A j × C ∈ V
17 6 ralrimivva ⊢ φ → ∀ j ∈ A ∀ k ∈ C X ∈ B
18 eqid ⊢ j ∈ A , k ∈ C ⟼ X = j ∈ A , k ∈ C ⟼ X
19 18 fmpox ⊢ ∀ j ∈ A ∀ k ∈ C X ∈ B ↔ j ∈ A , k ∈ C ⟼ X : ⋃ j ∈ A j × C ⟶ B
20 17 19 sylib ⊢ φ → j ∈ A , k ∈ C ⟼ X : ⋃ j ∈ A j × C ⟶ B
21 1 2 3 4 5 6 7 8 gsum2d2lem ⊢ φ → finSupp 0 ˙⁡ j ∈ A , k ∈ C ⟼ X
22 relxp ⊢ Rel ⁡ k × E
23 22 rgenw ⊢ ∀ k ∈ D Rel ⁡ k × E
24 reliun ⊢ Rel ⁡ ⋃ k ∈ D k × E ↔ ∀ k ∈ D Rel ⁡ k × E
25 23 24 mpbir ⊢ Rel ⁡ ⋃ k ∈ D k × E
26 cnvf1o ⊢ Rel ⁡ ⋃ k ∈ D k × E → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ k ∈ D k × E -1
27 25 26 ax-mp ⊢ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ k ∈ D k × E -1
28 relxp ⊢ Rel ⁡ j × C
29 28 rgenw ⊢ ∀ j ∈ A Rel ⁡ j × C
30 reliun ⊢ Rel ⁡ ⋃ j ∈ A j × C ↔ ∀ j ∈ A Rel ⁡ j × C
31 29 30 mpbir ⊢ Rel ⁡ ⋃ j ∈ A j × C
32 relcnv ⊢ Rel ⁡ ⋃ k ∈ D k × E -1
33 nfv ⊢ Ⅎ k φ
34 nfv ⊢ Ⅎ k x y ∈ ⋃ j ∈ A j × C
35 nfiu1 ⊢ Ⅎ _ k ⋃ k ∈ D k × E
36 35 nfcnv ⊢ Ⅎ _ k ⋃ k ∈ D k × E -1
37 36 nfel2 ⊢ Ⅎ k x y ∈ ⋃ k ∈ D k × E -1
38 34 37 nfbi ⊢ Ⅎ k x y ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ k ∈ D k × E -1
39 33 38 nfim ⊢ Ⅎ k φ → x y ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ k ∈ D k × E -1
40 opeq2 ⊢ k = y → x k = x y
41 40 eleq1d ⊢ k = y → x k ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ j ∈ A j × C
42 40 eleq1d ⊢ k = y → x k ∈ ⋃ k ∈ D k × E -1 ↔ x y ∈ ⋃ k ∈ D k × E -1
43 41 42 bibi12d ⊢ k = y → x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1 ↔ x y ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ k ∈ D k × E -1
44 43 imbi2d ⊢ k = y → φ → x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1 ↔ φ → x y ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ k ∈ D k × E -1
45 nfv ⊢ Ⅎ j φ
46 nfiu1 ⊢ Ⅎ _ j ⋃ j ∈ A j × C
47 46 nfel2 ⊢ Ⅎ j x k ∈ ⋃ j ∈ A j × C
48 nfv ⊢ Ⅎ j x k ∈ ⋃ k ∈ D k × E -1
49 47 48 nfbi ⊢ Ⅎ j x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1
50 45 49 nfim ⊢ Ⅎ j φ → x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1
51 opeq1 ⊢ j = x → j k = x k
52 51 eleq1d ⊢ j = x → j k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ j ∈ A j × C
53 51 eleq1d ⊢ j = x → j k ∈ ⋃ k ∈ D k × E -1 ↔ x k ∈ ⋃ k ∈ D k × E -1
54 52 53 bibi12d ⊢ j = x → j k ∈ ⋃ j ∈ A j × C ↔ j k ∈ ⋃ k ∈ D k × E -1 ↔ x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1
55 54 imbi2d ⊢ j = x → φ → j k ∈ ⋃ j ∈ A j × C ↔ j k ∈ ⋃ k ∈ D k × E -1 ↔ φ → x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1
56 opeliunxp ⊢ j k ∈ ⋃ j ∈ A j × C ↔ j ∈ A ∧ k ∈ C
57 opeliunxp ⊢ k j ∈ ⋃ k ∈ D k × E ↔ k ∈ D ∧ j ∈ E
58 10 56 57 3bitr4g ⊢ φ → j k ∈ ⋃ j ∈ A j × C ↔ k j ∈ ⋃ k ∈ D k × E
59 vex ⊢ j ∈ V
60 vex ⊢ k ∈ V
61 59 60 opelcnv ⊢ j k ∈ ⋃ k ∈ D k × E -1 ↔ k j ∈ ⋃ k ∈ D k × E
62 58 61 bitr4di ⊢ φ → j k ∈ ⋃ j ∈ A j × C ↔ j k ∈ ⋃ k ∈ D k × E -1
63 50 55 62 chvarfv ⊢ φ → x k ∈ ⋃ j ∈ A j × C ↔ x k ∈ ⋃ k ∈ D k × E -1
64 39 44 63 chvarfv ⊢ φ → x y ∈ ⋃ j ∈ A j × C ↔ x y ∈ ⋃ k ∈ D k × E -1
65 31 32 64 eqrelrdv ⊢ φ → ⋃ j ∈ A j × C = ⋃ k ∈ D k × E -1
66 65 f1oeq3d ⊢ φ → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ j ∈ A j × C ↔ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ k ∈ D k × E -1
67 27 66 mpbiri ⊢ φ → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ j ∈ A j × C
68 1 2 3 16 20 21 67 gsumf1o ⊢ φ → ∑ G j ∈ A , k ∈ C ⟼ X = ∑ G j ∈ A , k ∈ C ⟼ X ∘ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1
69 sneq ⊢ z = x y → z = x y
70 69 cnveqd ⊢ z = x y → z -1 = x y -1
71 70 unieqd ⊢ z = x y → ⋃ z -1 = ⋃ x y -1
72 opswap ⊢ ⋃ x y -1 = y x
73 71 72 eqtrdi ⊢ z = x y → ⋃ z -1 = y x
74 73 fveq2d ⊢ z = x y → j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1 = j ∈ A , k ∈ C ⟼ X ⁡ y x
75 df-ov ⊢ y j ∈ A , k ∈ C ⟼ X x = j ∈ A , k ∈ C ⟼ X ⁡ y x
76 74 75 eqtr4di ⊢ z = x y → j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1 = y j ∈ A , k ∈ C ⟼ X x
77 76 mpomptx ⊢ z ∈ ⋃ x ∈ D x × ⦋ x / k⦌ E ⟼ j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1 = x ∈ D , y ∈ ⦋ x / k⦌ E ⟼ y j ∈ A , k ∈ C ⟼ X x
78 nfcv ⊢ Ⅎ _ x k × E
79 nfcv ⊢ Ⅎ _ k x
80 nfcsb1v ⊢ Ⅎ _ k ⦋ x / k⦌ E
81 79 80 nfxp ⊢ Ⅎ _ k x × ⦋ x / k⦌ E
82 sneq ⊢ k = x → k = x
83 csbeq1a ⊢ k = x → E = ⦋ x / k⦌ E
84 82 83 xpeq12d ⊢ k = x → k × E = x × ⦋ x / k⦌ E
85 78 81 84 cbviun ⊢ ⋃ k ∈ D k × E = ⋃ x ∈ D x × ⦋ x / k⦌ E
86 85 mpteq1i ⊢ z ∈ ⋃ k ∈ D k × E ⟼ j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1 = z ∈ ⋃ x ∈ D x × ⦋ x / k⦌ E ⟼ j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1
87 nfcv ⊢ Ⅎ _ x E
88 nfcv ⊢ Ⅎ _ x j j ∈ A , k ∈ C ⟼ X k
89 nfcv ⊢ Ⅎ _ y j j ∈ A , k ∈ C ⟼ X k
90 nfcv ⊢ Ⅎ _ k y
91 nfmpo2 ⊢ Ⅎ _ k j ∈ A , k ∈ C ⟼ X
92 nfcv ⊢ Ⅎ _ k x
93 90 91 92 nfov ⊢ Ⅎ _ k y j ∈ A , k ∈ C ⟼ X x
94 nfcv ⊢ Ⅎ _ j y
95 nfmpo1 ⊢ Ⅎ _ j j ∈ A , k ∈ C ⟼ X
96 nfcv ⊢ Ⅎ _ j x
97 94 95 96 nfov ⊢ Ⅎ _ j y j ∈ A , k ∈ C ⟼ X x
98 oveq2 ⊢ k = x → j j ∈ A , k ∈ C ⟼ X k = j j ∈ A , k ∈ C ⟼ X x
99 oveq1 ⊢ j = y → j j ∈ A , k ∈ C ⟼ X x = y j ∈ A , k ∈ C ⟼ X x
100 98 99 sylan9eq ⊢ k = x ∧ j = y → j j ∈ A , k ∈ C ⟼ X k = y j ∈ A , k ∈ C ⟼ X x
101 87 80 88 89 93 97 83 100 cbvmpox ⊢ k ∈ D , j ∈ E ⟼ j j ∈ A , k ∈ C ⟼ X k = x ∈ D , y ∈ ⦋ x / k⦌ E ⟼ y j ∈ A , k ∈ C ⟼ X x
102 77 86 101 3eqtr4i ⊢ z ∈ ⋃ k ∈ D k × E ⟼ j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1 = k ∈ D , j ∈ E ⟼ j j ∈ A , k ∈ C ⟼ X k
103 f1of ⊢ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ 1-1 onto ⋃ j ∈ A j × C → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ ⋃ j ∈ A j × C
104 67 103 syl ⊢ φ → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ ⋃ j ∈ A j × C
105 eqid ⊢ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 = z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1
106 105 fmpt ⊢ ∀ z ∈ ⋃ k ∈ D k × E ⋃ z -1 ∈ ⋃ j ∈ A j × C ↔ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 : ⋃ k ∈ D k × E ⟶ ⋃ j ∈ A j × C
107 104 106 sylibr ⊢ φ → ∀ z ∈ ⋃ k ∈ D k × E ⋃ z -1 ∈ ⋃ j ∈ A j × C
108 eqidd ⊢ φ → z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 = z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1
109 20 feqmptd ⊢ φ → j ∈ A , k ∈ C ⟼ X = x ∈ ⋃ j ∈ A j × C ⟼ j ∈ A , k ∈ C ⟼ X ⁡ x
110 fveq2 ⊢ x = ⋃ z -1 → j ∈ A , k ∈ C ⟼ X ⁡ x = j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1
111 107 108 109 110 fmptcof ⊢ φ → j ∈ A , k ∈ C ⟼ X ∘ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 = z ∈ ⋃ k ∈ D k × E ⟼ j ∈ A , k ∈ C ⟼ X ⁡ ⋃ z -1
112 6 ex ⊢ φ → j ∈ A ∧ k ∈ C → X ∈ B
113 18 ovmpt4g ⊢ j ∈ A ∧ k ∈ C ∧ X ∈ B → j j ∈ A , k ∈ C ⟼ X k = X
114 113 3expia ⊢ j ∈ A ∧ k ∈ C → X ∈ B → j j ∈ A , k ∈ C ⟼ X k = X
115 112 114 sylcom ⊢ φ → j ∈ A ∧ k ∈ C → j j ∈ A , k ∈ C ⟼ X k = X
116 10 115 sylbird ⊢ φ → k ∈ D ∧ j ∈ E → j j ∈ A , k ∈ C ⟼ X k = X
117 116 3impib ⊢ φ ∧ k ∈ D ∧ j ∈ E → j j ∈ A , k ∈ C ⟼ X k = X
118 117 eqcomd ⊢ φ ∧ k ∈ D ∧ j ∈ E → X = j j ∈ A , k ∈ C ⟼ X k
119 118 mpoeq3dva ⊢ φ → k ∈ D , j ∈ E ⟼ X = k ∈ D , j ∈ E ⟼ j j ∈ A , k ∈ C ⟼ X k
120 102 111 119 3eqtr4a ⊢ φ → j ∈ A , k ∈ C ⟼ X ∘ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 = k ∈ D , j ∈ E ⟼ X
121 120 oveq2d ⊢ φ → ∑ G j ∈ A , k ∈ C ⟼ X ∘ z ∈ ⋃ k ∈ D k × E ⟼ ⋃ z -1 = ∑ G k ∈ D , j ∈ E ⟼ X
122 68 121 eqtrd ⊢ φ → ∑ G j ∈ A , k ∈ C ⟼ X = ∑ G k ∈ D , j ∈ E ⟼ X