Metamath Proof Explorer


Theorem gsum2d

Description: Write a sum over a two-dimensional region as a double sum. (Contributed by Mario Carneiro, 28-Dec-2014) (Revised by AV, 8-Jun-2019)

Ref Expression
Hypotheses gsum2d.b ⊢ B = Base G
gsum2d.z ⊢ 0 ˙ = 0 G
gsum2d.g ⊢ φ → G ∈ CMnd
gsum2d.a ⊢ φ → A ∈ V
gsum2d.r ⊢ φ → Rel ⁡ A
gsum2d.d ⊢ φ → D ∈ W
gsum2d.s ⊢ φ → dom ⁡ A ⊆ D
gsum2d.f ⊢ φ → F : A ⟶ B
gsum2d.w ⊢ φ → finSupp 0 ˙⁡ F
Assertion gsum2d ⊢ φ → ∑ G F = ∑ G j ∈ D ∑ G k ∈ A j j F k

Proof

Step Hyp Ref Expression
1 gsum2d.b ⊢ B = Base G
2 gsum2d.z ⊢ 0 ˙ = 0 G
3 gsum2d.g ⊢ φ → G ∈ CMnd
4 gsum2d.a ⊢ φ → A ∈ V
5 gsum2d.r ⊢ φ → Rel ⁡ A
6 gsum2d.d ⊢ φ → D ∈ W
7 gsum2d.s ⊢ φ → dom ⁡ A ⊆ D
8 gsum2d.f ⊢ φ → F : A ⟶ B
9 gsum2d.w ⊢ φ → finSupp 0 ˙⁡ F
10 1 2 3 4 5 6 7 8 9 gsum2dlem2 ⊢ φ → ∑ G F ↾ A ↾ dom ⁡ supp 0 ˙⁡ F = ∑ G j ∈ dom ⁡ supp 0 ˙⁡ F ∑ G k ∈ A j j F k
11 suppssdm ⊢ F supp 0 ˙ ⊆ dom ⁡ F
12 11 8 fssdm ⊢ φ → F supp 0 ˙ ⊆ A
13 relss ⊢ F supp 0 ˙ ⊆ A → Rel ⁡ A → Rel ⁡ supp 0 ˙⁡ F
14 12 5 13 sylc ⊢ φ → Rel ⁡ supp 0 ˙⁡ F
15 relssdmrn ⊢ Rel ⁡ supp 0 ˙⁡ F → F supp 0 ˙ ⊆ dom ⁡ supp 0 ˙⁡ F × ran ⁡ supp 0 ˙⁡ F
16 ssv ⊢ ran ⁡ supp 0 ˙⁡ F ⊆ V
17 xpss2 ⊢ ran ⁡ supp 0 ˙⁡ F ⊆ V → dom ⁡ supp 0 ˙⁡ F × ran ⁡ supp 0 ˙⁡ F ⊆ dom ⁡ supp 0 ˙⁡ F × V
18 16 17 ax-mp ⊢ dom ⁡ supp 0 ˙⁡ F × ran ⁡ supp 0 ˙⁡ F ⊆ dom ⁡ supp 0 ˙⁡ F × V
19 15 18 sstrdi ⊢ Rel ⁡ supp 0 ˙⁡ F → F supp 0 ˙ ⊆ dom ⁡ supp 0 ˙⁡ F × V
20 14 19 syl ⊢ φ → F supp 0 ˙ ⊆ dom ⁡ supp 0 ˙⁡ F × V
21 12 20 ssind ⊢ φ → F supp 0 ˙ ⊆ A ∩ dom ⁡ supp 0 ˙⁡ F × V
22 df-res ⊢ A ↾ dom ⁡ supp 0 ˙⁡ F = A ∩ dom ⁡ supp 0 ˙⁡ F × V
23 21 22 sseqtrrdi ⊢ φ → F supp 0 ˙ ⊆ A ↾ dom ⁡ supp 0 ˙⁡ F
24 1 2 3 4 8 23 9 gsumres ⊢ φ → ∑ G F ↾ A ↾ dom ⁡ supp 0 ˙⁡ F = ∑ G F
25 dmss ⊢ F supp 0 ˙ ⊆ A → dom ⁡ supp 0 ˙⁡ F ⊆ dom ⁡ A
26 12 25 syl ⊢ φ → dom ⁡ supp 0 ˙⁡ F ⊆ dom ⁡ A
27 26 7 sstrd ⊢ φ → dom ⁡ supp 0 ˙⁡ F ⊆ D
28 27 resmptd ⊢ φ → j ∈ D ⟼ ∑ G k ∈ A j j F k ↾ dom ⁡ supp 0 ˙⁡ F = j ∈ dom ⁡ supp 0 ˙⁡ F ⟼ ∑ G k ∈ A j j F k
29 28 oveq2d ⊢ φ → ∑ G j ∈ D ⟼ ∑ G k ∈ A j j F k ↾ dom ⁡ supp 0 ˙⁡ F = ∑ G j ∈ dom ⁡ supp 0 ˙⁡ F ∑ G k ∈ A j j F k
30 1 2 3 4 5 6 7 8 9 gsum2dlem1 ⊢ φ → ∑ G k ∈ A j j F k ∈ B
31 30 adantr ⊢ φ ∧ j ∈ D → ∑ G k ∈ A j j F k ∈ B
32 31 fmpttd ⊢ φ → j ∈ D ⟼ ∑ G k ∈ A j j F k : D ⟶ B
33 vex ⊢ j ∈ V
34 vex ⊢ k ∈ V
35 33 34 elimasn ⊢ k ∈ A j ↔ j k ∈ A
36 35 biimpi ⊢ k ∈ A j → j k ∈ A
37 36 ad2antll ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → j k ∈ A
38 eldifn ⊢ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F → ¬ j ∈ dom ⁡ supp 0 ˙⁡ F
39 38 ad2antrl ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → ¬ j ∈ dom ⁡ supp 0 ˙⁡ F
40 33 34 opeldm ⊢ j k ∈ supp 0 ˙⁡ F → j ∈ dom ⁡ supp 0 ˙⁡ F
41 39 40 nsyl ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → ¬ j k ∈ supp 0 ˙⁡ F
42 37 41 eldifd ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → j k ∈ A ∖ supp 0 ˙⁡ F
43 df-ov ⊢ j F k = F ⁡ j k
44 ssidd ⊢ φ → F supp 0 ˙ ⊆ F supp 0 ˙
45 2 fvexi ⊢ 0 ˙ ∈ V
46 45 a1i ⊢ φ → 0 ˙ ∈ V
47 8 44 4 46 suppssr ⊢ φ ∧ j k ∈ A ∖ supp 0 ˙⁡ F → F ⁡ j k = 0 ˙
48 43 47 eqtrid ⊢ φ ∧ j k ∈ A ∖ supp 0 ˙⁡ F → j F k = 0 ˙
49 42 48 syldan ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → j F k = 0 ˙
50 49 anassrs ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F ∧ k ∈ A j → j F k = 0 ˙
51 50 mpteq2dva ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F → k ∈ A j ⟼ j F k = k ∈ A j ⟼ 0 ˙
52 51 oveq2d ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F → ∑ G k ∈ A j j F k = ∑ G k ∈ A j 0 ˙
53 cmnmnd ⊢ G ∈ CMnd → G ∈ Mnd
54 3 53 syl ⊢ φ → G ∈ Mnd
55 imaexg ⊢ A ∈ V → A j ∈ V
56 4 55 syl ⊢ φ → A j ∈ V
57 2 gsumz ⊢ G ∈ Mnd ∧ A j ∈ V → ∑ G k ∈ A j 0 ˙ = 0 ˙
58 54 56 57 syl2anc ⊢ φ → ∑ G k ∈ A j 0 ˙ = 0 ˙
59 58 adantr ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F → ∑ G k ∈ A j 0 ˙ = 0 ˙
60 52 59 eqtrd ⊢ φ ∧ j ∈ D ∖ dom ⁡ supp 0 ˙⁡ F → ∑ G k ∈ A j j F k = 0 ˙
61 60 6 suppss2 ⊢ φ → j ∈ D ⟼ ∑ G k ∈ A j j F k supp 0 ˙ ⊆ dom ⁡ supp 0 ˙⁡ F
62 funmpt ⊢ Fun ⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k
63 62 a1i ⊢ φ → Fun ⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k
64 9 fsuppimpd ⊢ φ → F supp 0 ˙ ∈ Fin
65 dmfi ⊢ F supp 0 ˙ ∈ Fin → dom ⁡ supp 0 ˙⁡ F ∈ Fin
66 64 65 syl ⊢ φ → dom ⁡ supp 0 ˙⁡ F ∈ Fin
67 66 61 ssfid ⊢ φ → j ∈ D ⟼ ∑ G k ∈ A j j F k supp 0 ˙ ∈ Fin
68 6 mptexd ⊢ φ → j ∈ D ⟼ ∑ G k ∈ A j j F k ∈ V
69 isfsupp ⊢ j ∈ D ⟼ ∑ G k ∈ A j j F k ∈ V ∧ 0 ˙ ∈ V → finSupp 0 ˙⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k ↔ Fun ⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k ∧ j ∈ D ⟼ ∑ G k ∈ A j j F k supp 0 ˙ ∈ Fin
70 68 46 69 syl2anc ⊢ φ → finSupp 0 ˙⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k ↔ Fun ⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k ∧ j ∈ D ⟼ ∑ G k ∈ A j j F k supp 0 ˙ ∈ Fin
71 63 67 70 mpbir2and ⊢ φ → finSupp 0 ˙⁡ j ∈ D ⟼ ∑ G k ∈ A j j F k
72 1 2 3 6 32 61 71 gsumres ⊢ φ → ∑ G j ∈ D ⟼ ∑ G k ∈ A j j F k ↾ dom ⁡ supp 0 ˙⁡ F = ∑ G j ∈ D ∑ G k ∈ A j j F k
73 29 72 eqtr3d ⊢ φ → ∑ G j ∈ dom ⁡ supp 0 ˙⁡ F ∑ G k ∈ A j j F k = ∑ G j ∈ D ∑ G k ∈ A j j F k
74 10 24 73 3eqtr3d ⊢ φ → ∑ G F = ∑ G j ∈ D ∑ G k ∈ A j j F k