MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  gsumzf1o Structured version   Visualization version   GIF version

Theorem gsumzf1o 18237
Description: Re-index a finite group sum using a bijection. (Contributed by Mario Carneiro, 24-Apr-2016.) (Revised by AV, 2-Jun-2019.)
Hypotheses
Ref Expression
gsumzcl.b 𝐵 = (Base‘𝐺)
gsumzcl.0 0 = (0g𝐺)
gsumzcl.z 𝑍 = (Cntz‘𝐺)
gsumzcl.g (𝜑𝐺 ∈ Mnd)
gsumzcl.a (𝜑𝐴𝑉)
gsumzcl.f (𝜑𝐹:𝐴𝐵)
gsumzcl.c (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
gsumzcl.w (𝜑𝐹 finSupp 0 )
gsumzf1o.h (𝜑𝐻:𝐶1-1-onto𝐴)
Assertion
Ref Expression
gsumzf1o (𝜑 → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻)))

Proof of Theorem gsumzf1o
Dummy variables 𝑓 𝑘 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumzcl.g . . . . . . 7 (𝜑𝐺 ∈ Mnd)
2 gsumzcl.a . . . . . . 7 (𝜑𝐴𝑉)
3 gsumzcl.0 . . . . . . . 8 0 = (0g𝐺)
43gsumz 17298 . . . . . . 7 ((𝐺 ∈ Mnd ∧ 𝐴𝑉) → (𝐺 Σg (𝑘𝐴0 )) = 0 )
51, 2, 4syl2anc 692 . . . . . 6 (𝜑 → (𝐺 Σg (𝑘𝐴0 )) = 0 )
6 gsumzf1o.h . . . . . . . . 9 (𝜑𝐻:𝐶1-1-onto𝐴)
7 f1of1 6095 . . . . . . . . 9 (𝐻:𝐶1-1-onto𝐴𝐻:𝐶1-1𝐴)
86, 7syl 17 . . . . . . . 8 (𝜑𝐻:𝐶1-1𝐴)
9 f1dmex 7086 . . . . . . . 8 ((𝐻:𝐶1-1𝐴𝐴𝑉) → 𝐶 ∈ V)
108, 2, 9syl2anc 692 . . . . . . 7 (𝜑𝐶 ∈ V)
113gsumz 17298 . . . . . . 7 ((𝐺 ∈ Mnd ∧ 𝐶 ∈ V) → (𝐺 Σg (𝑥𝐶0 )) = 0 )
121, 10, 11syl2anc 692 . . . . . 6 (𝜑 → (𝐺 Σg (𝑥𝐶0 )) = 0 )
135, 12eqtr4d 2658 . . . . 5 (𝜑 → (𝐺 Σg (𝑘𝐴0 )) = (𝐺 Σg (𝑥𝐶0 )))
1413adantr 481 . . . 4 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → (𝐺 Σg (𝑘𝐴0 )) = (𝐺 Σg (𝑥𝐶0 )))
15 gsumzcl.f . . . . . 6 (𝜑𝐹:𝐴𝐵)
16 fvex 6160 . . . . . . . 8 (0g𝐺) ∈ V
173, 16eqeltri 2694 . . . . . . 7 0 ∈ V
1817a1i 11 . . . . . 6 (𝜑0 ∈ V)
19 ssid 3605 . . . . . . 7 (𝐹 supp 0 ) ⊆ (𝐹 supp 0 )
2019a1i 11 . . . . . 6 (𝜑 → (𝐹 supp 0 ) ⊆ (𝐹 supp 0 ))
2115, 2, 18, 20gsumcllem 18233 . . . . 5 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → 𝐹 = (𝑘𝐴0 ))
2221oveq2d 6623 . . . 4 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝑘𝐴0 )))
23 f1of 6096 . . . . . . . . 9 (𝐻:𝐶1-1-onto𝐴𝐻:𝐶𝐴)
246, 23syl 17 . . . . . . . 8 (𝜑𝐻:𝐶𝐴)
2524adantr 481 . . . . . . 7 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → 𝐻:𝐶𝐴)
2625ffvelrnda 6317 . . . . . 6 (((𝜑 ∧ (𝐹 supp 0 ) = ∅) ∧ 𝑥𝐶) → (𝐻𝑥) ∈ 𝐴)
2725feqmptd 6208 . . . . . 6 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → 𝐻 = (𝑥𝐶 ↦ (𝐻𝑥)))
28 eqidd 2622 . . . . . 6 (𝑘 = (𝐻𝑥) → 0 = 0 )
2926, 27, 21, 28fmptco 6354 . . . . 5 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → (𝐹𝐻) = (𝑥𝐶0 ))
3029oveq2d 6623 . . . 4 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → (𝐺 Σg (𝐹𝐻)) = (𝐺 Σg (𝑥𝐶0 )))
3114, 22, 303eqtr4d 2665 . . 3 ((𝜑 ∧ (𝐹 supp 0 ) = ∅) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻)))
3231ex 450 . 2 (𝜑 → ((𝐹 supp 0 ) = ∅ → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻))))
33 coass 5615 . . . . . . . . . . 11 ((𝐻𝐻) ∘ 𝑓) = (𝐻 ∘ (𝐻𝑓))
346adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐻:𝐶1-1-onto𝐴)
35 f1ococnv2 6122 . . . . . . . . . . . . . 14 (𝐻:𝐶1-1-onto𝐴 → (𝐻𝐻) = ( I ↾ 𝐴))
3634, 35syl 17 . . . . . . . . . . . . 13 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐻𝐻) = ( I ↾ 𝐴))
3736coeq1d 5245 . . . . . . . . . . . 12 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ((𝐻𝐻) ∘ 𝑓) = (( I ↾ 𝐴) ∘ 𝑓))
38 f1of1 6095 . . . . . . . . . . . . . . 15 (𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ) → 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1→(𝐹 supp 0 ))
3938ad2antll 764 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1→(𝐹 supp 0 ))
40 suppssdm 7256 . . . . . . . . . . . . . . . 16 (𝐹 supp 0 ) ⊆ dom 𝐹
41 fdm 6010 . . . . . . . . . . . . . . . . 17 (𝐹:𝐴𝐵 → dom 𝐹 = 𝐴)
4215, 41syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → dom 𝐹 = 𝐴)
4340, 42syl5sseq 3634 . . . . . . . . . . . . . . 15 (𝜑 → (𝐹 supp 0 ) ⊆ 𝐴)
4443adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹 supp 0 ) ⊆ 𝐴)
45 f1ss 6065 . . . . . . . . . . . . . 14 ((𝑓:(1...(#‘(𝐹 supp 0 )))–1-1→(𝐹 supp 0 ) ∧ (𝐹 supp 0 ) ⊆ 𝐴) → 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1𝐴)
4639, 44, 45syl2anc 692 . . . . . . . . . . . . 13 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1𝐴)
47 f1f 6060 . . . . . . . . . . . . 13 (𝑓:(1...(#‘(𝐹 supp 0 )))–1-1𝐴𝑓:(1...(#‘(𝐹 supp 0 )))⟶𝐴)
48 fcoi2 6038 . . . . . . . . . . . . 13 (𝑓:(1...(#‘(𝐹 supp 0 )))⟶𝐴 → (( I ↾ 𝐴) ∘ 𝑓) = 𝑓)
4946, 47, 483syl 18 . . . . . . . . . . . 12 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (( I ↾ 𝐴) ∘ 𝑓) = 𝑓)
5037, 49eqtrd 2655 . . . . . . . . . . 11 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ((𝐻𝐻) ∘ 𝑓) = 𝑓)
5133, 50syl5reqr 2670 . . . . . . . . . 10 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝑓 = (𝐻 ∘ (𝐻𝑓)))
5251coeq2d 5246 . . . . . . . . 9 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹𝑓) = (𝐹 ∘ (𝐻 ∘ (𝐻𝑓))))
53 coass 5615 . . . . . . . . 9 ((𝐹𝐻) ∘ (𝐻𝑓)) = (𝐹 ∘ (𝐻 ∘ (𝐻𝑓)))
5452, 53syl6eqr 2673 . . . . . . . 8 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹𝑓) = ((𝐹𝐻) ∘ (𝐻𝑓)))
5554seqeq3d 12752 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → seq1((+g𝐺), (𝐹𝑓)) = seq1((+g𝐺), ((𝐹𝐻) ∘ (𝐻𝑓))))
5655fveq1d 6152 . . . . . 6 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (seq1((+g𝐺), (𝐹𝑓))‘(#‘(𝐹 supp 0 ))) = (seq1((+g𝐺), ((𝐹𝐻) ∘ (𝐻𝑓)))‘(#‘(𝐹 supp 0 ))))
57 gsumzcl.b . . . . . . 7 𝐵 = (Base‘𝐺)
58 eqid 2621 . . . . . . 7 (+g𝐺) = (+g𝐺)
59 gsumzcl.z . . . . . . 7 𝑍 = (Cntz‘𝐺)
601adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐺 ∈ Mnd)
612adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐴𝑉)
6215adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐹:𝐴𝐵)
63 gsumzcl.c . . . . . . . 8 (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
6463adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
65 simprl 793 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (#‘(𝐹 supp 0 )) ∈ ℕ)
66 f1ofo 6103 . . . . . . . . . 10 (𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ) → 𝑓:(1...(#‘(𝐹 supp 0 )))–onto→(𝐹 supp 0 ))
67 forn 6077 . . . . . . . . . 10 (𝑓:(1...(#‘(𝐹 supp 0 )))–onto→(𝐹 supp 0 ) → ran 𝑓 = (𝐹 supp 0 ))
6866, 67syl 17 . . . . . . . . 9 (𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ) → ran 𝑓 = (𝐹 supp 0 ))
6968ad2antll 764 . . . . . . . 8 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ran 𝑓 = (𝐹 supp 0 ))
7019, 69syl5sseqr 3635 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
71 eqid 2621 . . . . . . 7 ((𝐹𝑓) supp 0 ) = ((𝐹𝑓) supp 0 )
7257, 3, 58, 59, 60, 61, 62, 64, 65, 46, 70, 71gsumval3 18232 . . . . . 6 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐺 Σg 𝐹) = (seq1((+g𝐺), (𝐹𝑓))‘(#‘(𝐹 supp 0 ))))
7310adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐶 ∈ V)
74 fco 6017 . . . . . . . . 9 ((𝐹:𝐴𝐵𝐻:𝐶𝐴) → (𝐹𝐻):𝐶𝐵)
7515, 24, 74syl2anc 692 . . . . . . . 8 (𝜑 → (𝐹𝐻):𝐶𝐵)
7675adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹𝐻):𝐶𝐵)
77 rncoss 5348 . . . . . . . . 9 ran (𝐹𝐻) ⊆ ran 𝐹
7859cntzidss 17694 . . . . . . . . 9 ((ran 𝐹 ⊆ (𝑍‘ran 𝐹) ∧ ran (𝐹𝐻) ⊆ ran 𝐹) → ran (𝐹𝐻) ⊆ (𝑍‘ran (𝐹𝐻)))
7963, 77, 78sylancl 693 . . . . . . . 8 (𝜑 → ran (𝐹𝐻) ⊆ (𝑍‘ran (𝐹𝐻)))
8079adantr 481 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ran (𝐹𝐻) ⊆ (𝑍‘ran (𝐹𝐻)))
81 f1ocnv 6108 . . . . . . . . . 10 (𝐻:𝐶1-1-onto𝐴𝐻:𝐴1-1-onto𝐶)
82 f1of1 6095 . . . . . . . . . 10 (𝐻:𝐴1-1-onto𝐶𝐻:𝐴1-1𝐶)
836, 81, 823syl 18 . . . . . . . . 9 (𝜑𝐻:𝐴1-1𝐶)
8483adantr 481 . . . . . . . 8 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → 𝐻:𝐴1-1𝐶)
85 f1co 6069 . . . . . . . 8 ((𝐻:𝐴1-1𝐶𝑓:(1...(#‘(𝐹 supp 0 )))–1-1𝐴) → (𝐻𝑓):(1...(#‘(𝐹 supp 0 )))–1-1𝐶)
8684, 46, 85syl2anc 692 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐻𝑓):(1...(#‘(𝐹 supp 0 )))–1-1𝐶)
8719a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹 supp 0 ) ⊆ (𝐹 supp 0 ))
88 fex 6447 . . . . . . . . . . . . . . 15 ((𝐹:𝐴𝐵𝐴𝑉) → 𝐹 ∈ V)
8915, 2, 88syl2anc 692 . . . . . . . . . . . . . 14 (𝜑𝐹 ∈ V)
90 suppimacnv 7254 . . . . . . . . . . . . . 14 ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (𝐹 “ (V ∖ { 0 })))
9189, 17, 90sylancl 693 . . . . . . . . . . . . 13 (𝜑 → (𝐹 supp 0 ) = (𝐹 “ (V ∖ { 0 })))
9291eqcomd 2627 . . . . . . . . . . . 12 (𝜑 → (𝐹 “ (V ∖ { 0 })) = (𝐹 supp 0 ))
9392adantr 481 . . . . . . . . . . 11 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹 “ (V ∖ { 0 })) = (𝐹 supp 0 ))
9487, 93, 693sstr4d 3629 . . . . . . . . . 10 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐹 “ (V ∖ { 0 })) ⊆ ran 𝑓)
95 imass2 5462 . . . . . . . . . 10 ((𝐹 “ (V ∖ { 0 })) ⊆ ran 𝑓 → (𝐻 “ (𝐹 “ (V ∖ { 0 }))) ⊆ (𝐻 “ ran 𝑓))
9694, 95syl 17 . . . . . . . . 9 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐻 “ (𝐹 “ (V ∖ { 0 }))) ⊆ (𝐻 “ ran 𝑓))
97 cnvco 5270 . . . . . . . . . . 11 (𝐹𝐻) = (𝐻𝐹)
9897imaeq1i 5424 . . . . . . . . . 10 ((𝐹𝐻) “ (V ∖ { 0 })) = ((𝐻𝐹) “ (V ∖ { 0 }))
99 imaco 5601 . . . . . . . . . 10 ((𝐻𝐹) “ (V ∖ { 0 })) = (𝐻 “ (𝐹 “ (V ∖ { 0 })))
10098, 99eqtri 2643 . . . . . . . . 9 ((𝐹𝐻) “ (V ∖ { 0 })) = (𝐻 “ (𝐹 “ (V ∖ { 0 })))
101 rnco2 5603 . . . . . . . . 9 ran (𝐻𝑓) = (𝐻 “ ran 𝑓)
10296, 100, 1013sstr4g 3627 . . . . . . . 8 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ((𝐹𝐻) “ (V ∖ { 0 })) ⊆ ran (𝐻𝑓))
103 f1oexrnex 7065 . . . . . . . . . . . . 13 ((𝐻:𝐶1-1-onto𝐴𝐴𝑉) → 𝐻 ∈ V)
1046, 2, 103syl2anc 692 . . . . . . . . . . . 12 (𝜑𝐻 ∈ V)
105 coexg 7067 . . . . . . . . . . . 12 ((𝐹 ∈ V ∧ 𝐻 ∈ V) → (𝐹𝐻) ∈ V)
10689, 104, 105syl2anc 692 . . . . . . . . . . 11 (𝜑 → (𝐹𝐻) ∈ V)
107 suppimacnv 7254 . . . . . . . . . . 11 (((𝐹𝐻) ∈ V ∧ 0 ∈ V) → ((𝐹𝐻) supp 0 ) = ((𝐹𝐻) “ (V ∖ { 0 })))
108106, 17, 107sylancl 693 . . . . . . . . . 10 (𝜑 → ((𝐹𝐻) supp 0 ) = ((𝐹𝐻) “ (V ∖ { 0 })))
109108sseq1d 3613 . . . . . . . . 9 (𝜑 → (((𝐹𝐻) supp 0 ) ⊆ ran (𝐻𝑓) ↔ ((𝐹𝐻) “ (V ∖ { 0 })) ⊆ ran (𝐻𝑓)))
110109adantr 481 . . . . . . . 8 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (((𝐹𝐻) supp 0 ) ⊆ ran (𝐻𝑓) ↔ ((𝐹𝐻) “ (V ∖ { 0 })) ⊆ ran (𝐻𝑓)))
111102, 110mpbird 247 . . . . . . 7 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → ((𝐹𝐻) supp 0 ) ⊆ ran (𝐻𝑓))
112 eqid 2621 . . . . . . 7 (((𝐹𝐻) ∘ (𝐻𝑓)) supp 0 ) = (((𝐹𝐻) ∘ (𝐻𝑓)) supp 0 )
11357, 3, 58, 59, 60, 73, 76, 80, 65, 86, 111, 112gsumval3 18232 . . . . . 6 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐺 Σg (𝐹𝐻)) = (seq1((+g𝐺), ((𝐹𝐻) ∘ (𝐻𝑓)))‘(#‘(𝐹 supp 0 ))))
11456, 72, 1133eqtr4d 2665 . . . . 5 ((𝜑 ∧ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻)))
115114expr 642 . . . 4 ((𝜑 ∧ (#‘(𝐹 supp 0 )) ∈ ℕ) → (𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻))))
116115exlimdv 1858 . . 3 ((𝜑 ∧ (#‘(𝐹 supp 0 )) ∈ ℕ) → (∃𝑓 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻))))
117116expimpd 628 . 2 (𝜑 → (((#‘(𝐹 supp 0 )) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 )) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻))))
118 gsumzcl.w . . 3 (𝜑𝐹 finSupp 0 )
119 fsuppimp 8228 . . . 4 (𝐹 finSupp 0 → (Fun 𝐹 ∧ (𝐹 supp 0 ) ∈ Fin))
120119simprd 479 . . 3 (𝐹 finSupp 0 → (𝐹 supp 0 ) ∈ Fin)
121 fz1f1o 14377 . . 3 ((𝐹 supp 0 ) ∈ Fin → ((𝐹 supp 0 ) = ∅ ∨ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))))
122118, 120, 1213syl 18 . 2 (𝜑 → ((𝐹 supp 0 ) = ∅ ∨ ((#‘(𝐹 supp 0 )) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))))
12332, 117, 122mpjaod 396 1 (𝜑 → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹𝐻)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wo 383  wa 384   = wceq 1480  wex 1701  wcel 1987  Vcvv 3186  cdif 3553  wss 3556  c0 3893  {csn 4150   class class class wbr 4615  cmpt 4675   I cid 4986  ccnv 5075  dom cdm 5076  ran crn 5077  cres 5078  cima 5079  ccom 5080  Fun wfun 5843  wf 5845  1-1wf1 5846  ontowfo 5847  1-1-ontowf1o 5848  cfv 5849  (class class class)co 6607   supp csupp 7243  Fincfn 7902   finSupp cfsupp 8222  1c1 9884  cn 10967  ...cfz 12271  seqcseq 12744  #chash 13060  Basecbs 15784  +gcplusg 15865  0gc0g 16024   Σg cgsu 16025  Mndcmnd 17218  Cntzccntz 17672
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4733  ax-sep 4743  ax-nul 4751  ax-pow 4805  ax-pr 4869  ax-un 6905  ax-cnex 9939  ax-resscn 9940  ax-1cn 9941  ax-icn 9942  ax-addcl 9943  ax-addrcl 9944  ax-mulcl 9945  ax-mulrcl 9946  ax-mulcom 9947  ax-addass 9948  ax-mulass 9949  ax-distr 9950  ax-i2m1 9951  ax-1ne0 9952  ax-1rid 9953  ax-rnegex 9954  ax-rrecex 9955  ax-cnre 9956  ax-pre-lttri 9957  ax-pre-lttrn 9958  ax-pre-ltadd 9959  ax-pre-mulgt0 9960
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3419  df-csb 3516  df-dif 3559  df-un 3561  df-in 3563  df-ss 3570  df-pss 3572  df-nul 3894  df-if 4061  df-pw 4134  df-sn 4151  df-pr 4153  df-tp 4155  df-op 4157  df-uni 4405  df-int 4443  df-iun 4489  df-br 4616  df-opab 4676  df-mpt 4677  df-tr 4715  df-eprel 4987  df-id 4991  df-po 4997  df-so 4998  df-fr 5035  df-se 5036  df-we 5037  df-xp 5082  df-rel 5083  df-cnv 5084  df-co 5085  df-dm 5086  df-rn 5087  df-res 5088  df-ima 5089  df-pred 5641  df-ord 5687  df-on 5688  df-lim 5689  df-suc 5690  df-iota 5812  df-fun 5851  df-fn 5852  df-f 5853  df-f1 5854  df-fo 5855  df-f1o 5856  df-fv 5857  df-isom 5858  df-riota 6568  df-ov 6610  df-oprab 6611  df-mpt2 6612  df-om 7016  df-1st 7116  df-2nd 7117  df-supp 7244  df-wrecs 7355  df-recs 7416  df-rdg 7454  df-1o 7508  df-oadd 7512  df-er 7690  df-en 7903  df-dom 7904  df-sdom 7905  df-fin 7906  df-fsupp 8223  df-oi 8362  df-card 8712  df-pnf 10023  df-mnf 10024  df-xr 10025  df-ltxr 10026  df-le 10027  df-sub 10215  df-neg 10216  df-nn 10968  df-n0 11240  df-z 11325  df-uz 11635  df-fz 12272  df-fzo 12410  df-seq 12745  df-hash 13061  df-0g 16026  df-gsum 16027  df-mgm 17166  df-sgrp 17208  df-mnd 17219  df-cntz 17674
This theorem is referenced by:  gsumf1o  18241  smadiadetlem3  20396
  Copyright terms: Public domain W3C validator