Metamath Proof Explorer


Theorem gsumzres

Description: Extend a finite group sum by padding outside with zeroes. (Contributed by Mario Carneiro, 24-Apr-2016) (Revised by AV, 31-May-2019)

Ref Expression
Hypotheses gsumzcl.b ⊢ B = Base G
gsumzcl.0 ⊢ 0 ˙ = 0 G
gsumzcl.z ⊢ Z = Cntz ⁡ G
gsumzcl.g ⊢ φ → G ∈ Mnd
gsumzcl.a ⊢ φ → A ∈ V
gsumzcl.f ⊢ φ → F : A ⟶ B
gsumzcl.c ⊢ φ → ran ⁡ F ⊆ Z ⁡ ran ⁡ F
gsumzres.s ⊢ φ → F supp 0 ˙ ⊆ W
gsumzres.w ⊢ φ → finSupp 0 ˙⁡ F
Assertion gsumzres ⊢ φ → ∑ G F ↾ W = ∑ G F

Proof

Step Hyp Ref Expression
1 gsumzcl.b ⊢ B = Base G
2 gsumzcl.0 ⊢ 0 ˙ = 0 G
3 gsumzcl.z ⊢ Z = Cntz ⁡ G
4 gsumzcl.g ⊢ φ → G ∈ Mnd
5 gsumzcl.a ⊢ φ → A ∈ V
6 gsumzcl.f ⊢ φ → F : A ⟶ B
7 gsumzcl.c ⊢ φ → ran ⁡ F ⊆ Z ⁡ ran ⁡ F
8 gsumzres.s ⊢ φ → F supp 0 ˙ ⊆ W
9 gsumzres.w ⊢ φ → finSupp 0 ˙⁡ F
10 inex1g ⊢ A ∈ V → A ∩ W ∈ V
11 5 10 syl ⊢ φ → A ∩ W ∈ V
12 2 gsumz ⊢ G ∈ Mnd ∧ A ∩ W ∈ V → ∑ G k ∈ A ∩ W 0 ˙ = 0 ˙
13 4 11 12 syl2anc ⊢ φ → ∑ G k ∈ A ∩ W 0 ˙ = 0 ˙
14 2 gsumz ⊢ G ∈ Mnd ∧ A ∈ V → ∑ G k ∈ A 0 ˙ = 0 ˙
15 4 5 14 syl2anc ⊢ φ → ∑ G k ∈ A 0 ˙ = 0 ˙
16 13 15 eqtr4d ⊢ φ → ∑ G k ∈ A ∩ W 0 ˙ = ∑ G k ∈ A 0 ˙
17 16 adantr ⊢ φ ∧ F supp 0 ˙ = ∅ → ∑ G k ∈ A ∩ W 0 ˙ = ∑ G k ∈ A 0 ˙
18 resres ⊢ F ↾ A ↾ W = F ↾ A ∩ W
19 ffn ⊢ F : A ⟶ B → F Fn A
20 fnresdm ⊢ F Fn A → F ↾ A = F
21 6 19 20 3syl ⊢ φ → F ↾ A = F
22 21 reseq1d ⊢ φ → F ↾ A ↾ W = F ↾ W
23 18 22 eqtr3id ⊢ φ → F ↾ A ∩ W = F ↾ W
24 23 adantr ⊢ φ ∧ F supp 0 ˙ = ∅ → F ↾ A ∩ W = F ↾ W
25 2 fvexi ⊢ 0 ˙ ∈ V
26 25 a1i ⊢ φ → 0 ˙ ∈ V
27 ssid ⊢ F supp 0 ˙ ⊆ F supp 0 ˙
28 27 a1i ⊢ φ → F supp 0 ˙ ⊆ F supp 0 ˙
29 6 5 26 28 gsumcllem ⊢ φ ∧ F supp 0 ˙ = ∅ → F = k ∈ A ⟼ 0 ˙
30 29 reseq1d ⊢ φ ∧ F supp 0 ˙ = ∅ → F ↾ A ∩ W = k ∈ A ⟼ 0 ˙ ↾ A ∩ W
31 inss1 ⊢ A ∩ W ⊆ A
32 resmpt ⊢ A ∩ W ⊆ A → k ∈ A ⟼ 0 ˙ ↾ A ∩ W = k ∈ A ∩ W ⟼ 0 ˙
33 31 32 ax-mp ⊢ k ∈ A ⟼ 0 ˙ ↾ A ∩ W = k ∈ A ∩ W ⟼ 0 ˙
34 30 33 eqtrdi ⊢ φ ∧ F supp 0 ˙ = ∅ → F ↾ A ∩ W = k ∈ A ∩ W ⟼ 0 ˙
35 24 34 eqtr3d ⊢ φ ∧ F supp 0 ˙ = ∅ → F ↾ W = k ∈ A ∩ W ⟼ 0 ˙
36 35 oveq2d ⊢ φ ∧ F supp 0 ˙ = ∅ → ∑ G F ↾ W = ∑ G k ∈ A ∩ W 0 ˙
37 29 oveq2d ⊢ φ ∧ F supp 0 ˙ = ∅ → ∑ G F = ∑ G k ∈ A 0 ˙
38 17 36 37 3eqtr4d ⊢ φ ∧ F supp 0 ˙ = ∅ → ∑ G F ↾ W = ∑ G F
39 38 ex ⊢ φ → F supp 0 ˙ = ∅ → ∑ G F ↾ W = ∑ G F
40 f1ofo ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → f : 1 … F supp 0 ˙ ⟶ onto F supp 0 ˙
41 forn ⊢ f : 1 … F supp 0 ˙ ⟶ onto F supp 0 ˙ → ran ⁡ f = F supp 0 ˙
42 40 41 syl ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ran ⁡ f = F supp 0 ˙
43 42 ad2antll ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ran ⁡ f = F supp 0 ˙
44 8 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F supp 0 ˙ ⊆ W
45 43 44 eqsstrd ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ran ⁡ f ⊆ W
46 cores ⊢ ran ⁡ f ⊆ W → F ↾ W ∘ f = F ∘ f
47 45 46 syl ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F ↾ W ∘ f = F ∘ f
48 47 seqeq3d ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → seq 1 + G F ↾ W ∘ f = seq 1 + G F ∘ f
49 48 fveq1d ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → seq 1 + G F ↾ W ∘ f ⁡ F supp 0 ˙ = seq 1 + G F ∘ f ⁡ F supp 0 ˙
50 eqid ⊢ + G = + G
51 4 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → G ∈ Mnd
52 11 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → A ∩ W ∈ V
53 6 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F : A ⟶ B
54 fssres ⊢ F : A ⟶ B ∧ A ∩ W ⊆ A → F ↾ A ∩ W : A ∩ W ⟶ B
55 53 31 54 sylancl ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F ↾ A ∩ W : A ∩ W ⟶ B
56 23 feq1d ⊢ φ → F ↾ A ∩ W : A ∩ W ⟶ B ↔ F ↾ W : A ∩ W ⟶ B
57 56 biimpa ⊢ φ ∧ F ↾ A ∩ W : A ∩ W ⟶ B → F ↾ W : A ∩ W ⟶ B
58 55 57 syldan ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F ↾ W : A ∩ W ⟶ B
59 resss ⊢ F ↾ W ⊆ F
60 59 rnssi ⊢ ran ⁡ F ↾ W ⊆ ran ⁡ F
61 3 cntzidss ⊢ ran ⁡ F ⊆ Z ⁡ ran ⁡ F ∧ ran ⁡ F ↾ W ⊆ ran ⁡ F → ran ⁡ F ↾ W ⊆ Z ⁡ ran ⁡ F ↾ W
62 7 60 61 sylancl ⊢ φ → ran ⁡ F ↾ W ⊆ Z ⁡ ran ⁡ F ↾ W
63 62 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ran ⁡ F ↾ W ⊆ Z ⁡ ran ⁡ F ↾ W
64 simprl ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F supp 0 ˙ ∈ ℕ
65 f1of1 ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → f : 1 … F supp 0 ˙ ⟶ 1-1 F supp 0 ˙
66 65 ad2antll ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → f : 1 … F supp 0 ˙ ⟶ 1-1 F supp 0 ˙
67 suppssdm ⊢ F supp 0 ˙ ⊆ dom ⁡ F
68 67 6 fssdm ⊢ φ → F supp 0 ˙ ⊆ A
69 68 8 ssind ⊢ φ → F supp 0 ˙ ⊆ A ∩ W
70 69 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F supp 0 ˙ ⊆ A ∩ W
71 f1ss ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 F supp 0 ˙ ∧ F supp 0 ˙ ⊆ A ∩ W → f : 1 … F supp 0 ˙ ⟶ 1-1 A ∩ W
72 66 70 71 syl2anc ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → f : 1 … F supp 0 ˙ ⟶ 1-1 A ∩ W
73 6 5 fexd ⊢ φ → F ∈ V
74 ressuppss ⊢ F ∈ V ∧ 0 ˙ ∈ V → F ↾ W supp 0 ˙ ⊆ F supp 0 ˙
75 73 25 74 sylancl ⊢ φ → F ↾ W supp 0 ˙ ⊆ F supp 0 ˙
76 sseq2 ⊢ ran ⁡ f = F supp 0 ˙ → F ↾ W supp 0 ˙ ⊆ ran ⁡ f ↔ F ↾ W supp 0 ˙ ⊆ F supp 0 ˙
77 75 76 imbitrrid ⊢ ran ⁡ f = F supp 0 ˙ → φ → F ↾ W supp 0 ˙ ⊆ ran ⁡ f
78 40 41 77 3syl ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → φ → F ↾ W supp 0 ˙ ⊆ ran ⁡ f
79 78 adantl ⊢ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → φ → F ↾ W supp 0 ˙ ⊆ ran ⁡ f
80 79 impcom ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F ↾ W supp 0 ˙ ⊆ ran ⁡ f
81 eqid ⊢ F ↾ W ∘ f supp 0 ˙ = F ↾ W ∘ f supp 0 ˙
82 1 2 50 3 51 52 58 63 64 72 80 81 gsumval3 ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F ↾ W = seq 1 + G F ↾ W ∘ f ⁡ F supp 0 ˙
83 5 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → A ∈ V
84 7 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ran ⁡ F ⊆ Z ⁡ ran ⁡ F
85 68 adantr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F supp 0 ˙ ⊆ A
86 f1ss ⊢ f : 1 … F supp 0 ˙ ⟶ 1-1 F supp 0 ˙ ∧ F supp 0 ˙ ⊆ A → f : 1 … F supp 0 ˙ ⟶ 1-1 A
87 66 85 86 syl2anc ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → f : 1 … F supp 0 ˙ ⟶ 1-1 A
88 27 43 sseqtrrid ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → F supp 0 ˙ ⊆ ran ⁡ f
89 eqid ⊢ F ∘ f supp 0 ˙ = F ∘ f supp 0 ˙
90 1 2 50 3 51 83 53 84 64 87 88 89 gsumval3 ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F = seq 1 + G F ∘ f ⁡ F supp 0 ˙
91 49 82 90 3eqtr4d ⊢ φ ∧ F supp 0 ˙ ∈ ℕ ∧ f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F ↾ W = ∑ G F
92 91 expr ⊢ φ ∧ F supp 0 ˙ ∈ ℕ → f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F ↾ W = ∑ G F
93 92 exlimdv ⊢ φ ∧ F supp 0 ˙ ∈ ℕ → ∃ f f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F ↾ W = ∑ G F
94 93 expimpd ⊢ φ → F supp 0 ˙ ∈ ℕ ∧ ∃ f f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙ → ∑ G F ↾ W = ∑ G F
95 fsuppimp ⊢ finSupp 0 ˙⁡ F → Fun ⁡ F ∧ F supp 0 ˙ ∈ Fin
96 95 simprd ⊢ finSupp 0 ˙⁡ F → F supp 0 ˙ ∈ Fin
97 fz1f1o ⊢ F supp 0 ˙ ∈ Fin → F supp 0 ˙ = ∅ ∨ F supp 0 ˙ ∈ ℕ ∧ ∃ f f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙
98 9 96 97 3syl ⊢ φ → F supp 0 ˙ = ∅ ∨ F supp 0 ˙ ∈ ℕ ∧ ∃ f f : 1 … F supp 0 ˙ ⟶ 1-1 onto F supp 0 ˙
99 39 94 98 mpjaod ⊢ φ → ∑ G F ↾ W = ∑ G F