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

Theorem gsumress 17257
Description: The group sum in a substructure is the same as the group sum in the original structure. The only requirement on the substructure is that it contain the identity element; neither 𝐺 nor 𝐻 need be groups. (Contributed by Mario Carneiro, 19-Dec-2014.) (Revised by Mario Carneiro, 30-Apr-2015.)
Hypotheses
Ref Expression
gsumress.b 𝐵 = (Base‘𝐺)
gsumress.o + = (+g𝐺)
gsumress.h 𝐻 = (𝐺s 𝑆)
gsumress.g (𝜑𝐺𝑉)
gsumress.a (𝜑𝐴𝑋)
gsumress.s (𝜑𝑆𝐵)
gsumress.f (𝜑𝐹:𝐴𝑆)
gsumress.z (𝜑0𝑆)
gsumress.c ((𝜑𝑥𝐵) → (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))
Assertion
Ref Expression
gsumress (𝜑 → (𝐺 Σg 𝐹) = (𝐻 Σg 𝐹))
Distinct variable groups:   𝑥,𝐵   𝑥,𝐺   𝜑,𝑥   𝑥,𝑆   𝑥,𝐻   𝑥, +   𝑥, 0
Allowed substitution hints:   𝐴(𝑥)   𝐹(𝑥)   𝑉(𝑥)   𝑋(𝑥)

Proof of Theorem gsumress
Dummy variables 𝑓 𝑚 𝑛 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumress.s . . . . . . . . 9 (𝜑𝑆𝐵)
2 gsumress.z . . . . . . . . 9 (𝜑0𝑆)
31, 2sseldd 3596 . . . . . . . 8 (𝜑0𝐵)
4 gsumress.c . . . . . . . . 9 ((𝜑𝑥𝐵) → (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))
54ralrimiva 2963 . . . . . . . 8 (𝜑 → ∀𝑥𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))
6 oveq1 6642 . . . . . . . . . . . 12 (𝑦 = 0 → (𝑦 + 𝑥) = ( 0 + 𝑥))
76eqeq1d 2622 . . . . . . . . . . 11 (𝑦 = 0 → ((𝑦 + 𝑥) = 𝑥 ↔ ( 0 + 𝑥) = 𝑥))
8 oveq2 6643 . . . . . . . . . . . 12 (𝑦 = 0 → (𝑥 + 𝑦) = (𝑥 + 0 ))
98eqeq1d 2622 . . . . . . . . . . 11 (𝑦 = 0 → ((𝑥 + 𝑦) = 𝑥 ↔ (𝑥 + 0 ) = 𝑥))
107, 9anbi12d 746 . . . . . . . . . 10 (𝑦 = 0 → (((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥) ↔ (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)))
1110ralbidv 2983 . . . . . . . . 9 (𝑦 = 0 → (∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥) ↔ ∀𝑥𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)))
1211elrab 3357 . . . . . . . 8 ( 0 ∈ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ↔ ( 0𝐵 ∧ ∀𝑥𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)))
133, 5, 12sylanbrc 697 . . . . . . 7 (𝜑0 ∈ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)})
1413snssd 4331 . . . . . 6 (𝜑 → { 0 } ⊆ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)})
15 gsumress.g . . . . . . . 8 (𝜑𝐺𝑉)
16 gsumress.b . . . . . . . . 9 𝐵 = (Base‘𝐺)
17 eqid 2620 . . . . . . . . 9 (0g𝐺) = (0g𝐺)
18 gsumress.o . . . . . . . . 9 + = (+g𝐺)
19 eqid 2620 . . . . . . . . 9 {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} = {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)}
2016, 17, 18, 19mgmidsssn0 17250 . . . . . . . 8 (𝐺𝑉 → {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ⊆ {(0g𝐺)})
2115, 20syl 17 . . . . . . 7 (𝜑 → {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ⊆ {(0g𝐺)})
2221, 13sseldd 3596 . . . . . . . . 9 (𝜑0 ∈ {(0g𝐺)})
23 elsni 4185 . . . . . . . . 9 ( 0 ∈ {(0g𝐺)} → 0 = (0g𝐺))
2422, 23syl 17 . . . . . . . 8 (𝜑0 = (0g𝐺))
2524sneqd 4180 . . . . . . 7 (𝜑 → { 0 } = {(0g𝐺)})
2621, 25sseqtr4d 3634 . . . . . 6 (𝜑 → {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ⊆ { 0 })
2714, 26eqssd 3612 . . . . 5 (𝜑 → { 0 } = {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)})
281sselda 3595 . . . . . . . . . . 11 ((𝜑𝑥𝑆) → 𝑥𝐵)
2928, 4syldan 487 . . . . . . . . . 10 ((𝜑𝑥𝑆) → (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))
3029ralrimiva 2963 . . . . . . . . 9 (𝜑 → ∀𝑥𝑆 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))
3110ralbidv 2983 . . . . . . . . . 10 (𝑦 = 0 → (∀𝑥𝑆 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥) ↔ ∀𝑥𝑆 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)))
3231elrab 3357 . . . . . . . . 9 ( 0 ∈ {𝑦𝑆 ∣ ∀𝑥𝑆 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ↔ ( 0𝑆 ∧ ∀𝑥𝑆 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)))
332, 30, 32sylanbrc 697 . . . . . . . 8 (𝜑0 ∈ {𝑦𝑆 ∣ ∀𝑥𝑆 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)})
34 gsumress.h . . . . . . . . . . 11 𝐻 = (𝐺s 𝑆)
3534, 16ressbas2 15912 . . . . . . . . . 10 (𝑆𝐵𝑆 = (Base‘𝐻))
361, 35syl 17 . . . . . . . . 9 (𝜑𝑆 = (Base‘𝐻))
37 fvex 6188 . . . . . . . . . . . . . . 15 (Base‘𝐻) ∈ V
3836, 37syl6eqel 2707 . . . . . . . . . . . . . 14 (𝜑𝑆 ∈ V)
3934, 18ressplusg 15974 . . . . . . . . . . . . . 14 (𝑆 ∈ V → + = (+g𝐻))
4038, 39syl 17 . . . . . . . . . . . . 13 (𝜑+ = (+g𝐻))
4140oveqd 6652 . . . . . . . . . . . 12 (𝜑 → (𝑦 + 𝑥) = (𝑦(+g𝐻)𝑥))
4241eqeq1d 2622 . . . . . . . . . . 11 (𝜑 → ((𝑦 + 𝑥) = 𝑥 ↔ (𝑦(+g𝐻)𝑥) = 𝑥))
4340oveqd 6652 . . . . . . . . . . . 12 (𝜑 → (𝑥 + 𝑦) = (𝑥(+g𝐻)𝑦))
4443eqeq1d 2622 . . . . . . . . . . 11 (𝜑 → ((𝑥 + 𝑦) = 𝑥 ↔ (𝑥(+g𝐻)𝑦) = 𝑥))
4542, 44anbi12d 746 . . . . . . . . . 10 (𝜑 → (((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥) ↔ ((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)))
4636, 45raleqbidv 3147 . . . . . . . . 9 (𝜑 → (∀𝑥𝑆 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥) ↔ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)))
4736, 46rabeqbidv 3190 . . . . . . . 8 (𝜑 → {𝑦𝑆 ∣ ∀𝑥𝑆 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} = {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})
4833, 47eleqtrd 2701 . . . . . . 7 (𝜑0 ∈ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})
4948snssd 4331 . . . . . 6 (𝜑 → { 0 } ⊆ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})
50 ovex 6663 . . . . . . . . . 10 (𝐺s 𝑆) ∈ V
5134, 50eqeltri 2695 . . . . . . . . 9 𝐻 ∈ V
5251a1i 11 . . . . . . . 8 (𝜑𝐻 ∈ V)
53 eqid 2620 . . . . . . . . 9 (Base‘𝐻) = (Base‘𝐻)
54 eqid 2620 . . . . . . . . 9 (0g𝐻) = (0g𝐻)
55 eqid 2620 . . . . . . . . 9 (+g𝐻) = (+g𝐻)
56 eqid 2620 . . . . . . . . 9 {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)} = {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)}
5753, 54, 55, 56mgmidsssn0 17250 . . . . . . . 8 (𝐻 ∈ V → {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)} ⊆ {(0g𝐻)})
5852, 57syl 17 . . . . . . 7 (𝜑 → {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)} ⊆ {(0g𝐻)})
5958, 48sseldd 3596 . . . . . . . . 9 (𝜑0 ∈ {(0g𝐻)})
60 elsni 4185 . . . . . . . . 9 ( 0 ∈ {(0g𝐻)} → 0 = (0g𝐻))
6159, 60syl 17 . . . . . . . 8 (𝜑0 = (0g𝐻))
6261sneqd 4180 . . . . . . 7 (𝜑 → { 0 } = {(0g𝐻)})
6358, 62sseqtr4d 3634 . . . . . 6 (𝜑 → {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)} ⊆ { 0 })
6449, 63eqssd 3612 . . . . 5 (𝜑 → { 0 } = {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})
6527, 64eqtr3d 2656 . . . 4 (𝜑 → {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} = {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})
6665sseq2d 3625 . . 3 (𝜑 → (ran 𝐹 ⊆ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)} ↔ ran 𝐹 ⊆ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)}))
6724, 61eqtr3d 2656 . . 3 (𝜑 → (0g𝐺) = (0g𝐻))
6840seqeq2d 12791 . . . . . . . . . 10 (𝜑 → seq𝑚( + , 𝐹) = seq𝑚((+g𝐻), 𝐹))
6968fveq1d 6180 . . . . . . . . 9 (𝜑 → (seq𝑚( + , 𝐹)‘𝑛) = (seq𝑚((+g𝐻), 𝐹)‘𝑛))
7069eqeq2d 2630 . . . . . . . 8 (𝜑 → (𝑧 = (seq𝑚( + , 𝐹)‘𝑛) ↔ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛)))
7170anbi2d 739 . . . . . . 7 (𝜑 → ((𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛)) ↔ (𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
7271rexbidv 3048 . . . . . 6 (𝜑 → (∃𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛)) ↔ ∃𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
7372exbidv 1848 . . . . 5 (𝜑 → (∃𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛)) ↔ ∃𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
7473iotabidv 5860 . . . 4 (𝜑 → (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛))) = (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
7540seqeq2d 12791 . . . . . . . . 9 (𝜑 → seq1( + , (𝐹𝑓)) = seq1((+g𝐻), (𝐹𝑓)))
7675fveq1d 6180 . . . . . . . 8 (𝜑 → (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))) = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))
7776eqeq2d 2630 . . . . . . 7 (𝜑 → (𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))) ↔ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 }))))))
7877anbi2d 739 . . . . . 6 (𝜑 → ((𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 }))))) ↔ (𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))
7978exbidv 1848 . . . . 5 (𝜑 → (∃𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 }))))) ↔ ∃𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))
8079iotabidv 5860 . . . 4 (𝜑 → (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))) = (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))
8174, 80ifeq12d 4097 . . 3 (𝜑 → if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 }))))))) = if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 }))))))))
8266, 67, 81ifbieq12d 4104 . 2 (𝜑 → if(ran 𝐹 ⊆ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)}, (0g𝐺), if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))) = if(ran 𝐹 ⊆ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)}, (0g𝐻), if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))))
8327difeq2d 3720 . . . 4 (𝜑 → (V ∖ { 0 }) = (V ∖ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)}))
8483imaeq2d 5454 . . 3 (𝜑 → (𝐹 “ (V ∖ { 0 })) = (𝐹 “ (V ∖ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)})))
85 gsumress.a . . 3 (𝜑𝐴𝑋)
86 gsumress.f . . . 4 (𝜑𝐹:𝐴𝑆)
8786, 1fssd 6044 . . 3 (𝜑𝐹:𝐴𝐵)
8816, 17, 18, 19, 84, 15, 85, 87gsumval 17252 . 2 (𝜑 → (𝐺 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑦𝐵 ∣ ∀𝑥𝐵 ((𝑦 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑦) = 𝑥)}, (0g𝐺), if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1( + , (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))))
8964difeq2d 3720 . . . 4 (𝜑 → (V ∖ { 0 }) = (V ∖ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)}))
9089imaeq2d 5454 . . 3 (𝜑 → (𝐹 “ (V ∖ { 0 })) = (𝐹 “ (V ∖ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)})))
9136feq3d 6019 . . . 4 (𝜑 → (𝐹:𝐴𝑆𝐹:𝐴⟶(Base‘𝐻)))
9286, 91mpbid 222 . . 3 (𝜑𝐹:𝐴⟶(Base‘𝐻))
9353, 54, 55, 56, 90, 52, 85, 92gsumval 17252 . 2 (𝜑 → (𝐻 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑦 ∈ (Base‘𝐻) ∣ ∀𝑥 ∈ (Base‘𝐻)((𝑦(+g𝐻)𝑥) = 𝑥 ∧ (𝑥(+g𝐻)𝑦) = 𝑥)}, (0g𝐻), if(𝐴 ∈ ran ..., (℩𝑧𝑚𝑛 ∈ (ℤ𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑧 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑧𝑓(𝑓:(1...(#‘(𝐹 “ (V ∖ { 0 }))))–1-1-onto→(𝐹 “ (V ∖ { 0 })) ∧ 𝑧 = (seq1((+g𝐻), (𝐹𝑓))‘(#‘(𝐹 “ (V ∖ { 0 })))))))))
9482, 88, 933eqtr4d 2664 1 (𝜑 → (𝐺 Σg 𝐹) = (𝐻 Σg 𝐹))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384   = wceq 1481  wex 1702  wcel 1988  wral 2909  wrex 2910  {crab 2913  Vcvv 3195  cdif 3564  wss 3567  ifcif 4077  {csn 4168  ccnv 5103  ran crn 5105  cima 5107  ccom 5108  cio 5837  wf 5872  1-1-ontowf1o 5875  cfv 5876  (class class class)co 6635  1c1 9922  cuz 11672  ...cfz 12311  seqcseq 12784  #chash 13100  Basecbs 15838  s cress 15839  +gcplusg 15922  0gc0g 16081   Σg cgsu 16082
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-8 1990  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-sep 4772  ax-nul 4780  ax-pow 4834  ax-pr 4897  ax-un 6934  ax-cnex 9977  ax-resscn 9978  ax-1cn 9979  ax-icn 9980  ax-addcl 9981  ax-addrcl 9982  ax-mulcl 9983  ax-mulrcl 9984  ax-mulcom 9985  ax-addass 9986  ax-mulass 9987  ax-distr 9988  ax-i2m1 9989  ax-1ne0 9990  ax-1rid 9991  ax-rnegex 9992  ax-rrecex 9993  ax-cnre 9994  ax-pre-lttri 9995  ax-pre-lttrn 9996  ax-pre-ltadd 9997  ax-pre-mulgt0 9998
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1484  df-ex 1703  df-nf 1708  df-sb 1879  df-eu 2472  df-mo 2473  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-nel 2895  df-ral 2914  df-rex 2915  df-reu 2916  df-rmo 2917  df-rab 2918  df-v 3197  df-sbc 3430  df-csb 3527  df-dif 3570  df-un 3572  df-in 3574  df-ss 3581  df-pss 3583  df-nul 3908  df-if 4078  df-pw 4151  df-sn 4169  df-pr 4171  df-tp 4173  df-op 4175  df-uni 4428  df-iun 4513  df-br 4645  df-opab 4704  df-mpt 4721  df-tr 4744  df-id 5014  df-eprel 5019  df-po 5025  df-so 5026  df-fr 5063  df-we 5065  df-xp 5110  df-rel 5111  df-cnv 5112  df-co 5113  df-dm 5114  df-rn 5115  df-res 5116  df-ima 5117  df-pred 5668  df-ord 5714  df-on 5715  df-lim 5716  df-suc 5717  df-iota 5839  df-fun 5878  df-fn 5879  df-f 5880  df-f1 5881  df-fo 5882  df-f1o 5883  df-fv 5884  df-riota 6596  df-ov 6638  df-oprab 6639  df-mpt2 6640  df-om 7051  df-wrecs 7392  df-recs 7453  df-rdg 7491  df-er 7727  df-en 7941  df-dom 7942  df-sdom 7943  df-pnf 10061  df-mnf 10062  df-xr 10063  df-ltxr 10064  df-le 10065  df-sub 10253  df-neg 10254  df-nn 11006  df-2 11064  df-seq 12785  df-ndx 15841  df-slot 15842  df-base 15844  df-sets 15845  df-ress 15846  df-plusg 15935  df-0g 16083  df-gsum 16084
This theorem is referenced by:  gsumsubm  17354  regsumfsum  19795  regsumsupp  19949  frlmgsum  20092  imasdsf1olem  22159  esumpfinvallem  30110  sge0tsms  40360  aacllem  42312
  Copyright terms: Public domain W3C validator