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

Theorem gsumpropd 17959
 Description: The group sum depends only on the base set and additive operation. Note that for entirely unrestricted functions, there can be dependency on out-of-domain values of the operation, so this is somewhat weaker than mndpropd 18007 etc. (Contributed by Stefan O'Rear, 1-Feb-2015.) (Proof shortened by Mario Carneiro, 18-Sep-2015.)
Hypotheses
Ref Expression
gsumpropd.f (𝜑𝐹𝑉)
gsumpropd.g (𝜑𝐺𝑊)
gsumpropd.h (𝜑𝐻𝑋)
gsumpropd.b (𝜑 → (Base‘𝐺) = (Base‘𝐻))
gsumpropd.p (𝜑 → (+g𝐺) = (+g𝐻))
Assertion
Ref Expression
gsumpropd (𝜑 → (𝐺 Σg 𝐹) = (𝐻 Σg 𝐹))

Proof of Theorem gsumpropd
Dummy variables 𝑎 𝑏 𝑓 𝑚 𝑛 𝑠 𝑡 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumpropd.b . . . . 5 (𝜑 → (Base‘𝐺) = (Base‘𝐻))
2 gsumpropd.p . . . . . . . . 9 (𝜑 → (+g𝐺) = (+g𝐻))
32oveqd 7172 . . . . . . . 8 (𝜑 → (𝑠(+g𝐺)𝑡) = (𝑠(+g𝐻)𝑡))
43eqeq1d 2760 . . . . . . 7 (𝜑 → ((𝑠(+g𝐺)𝑡) = 𝑡 ↔ (𝑠(+g𝐻)𝑡) = 𝑡))
52oveqd 7172 . . . . . . . 8 (𝜑 → (𝑡(+g𝐺)𝑠) = (𝑡(+g𝐻)𝑠))
65eqeq1d 2760 . . . . . . 7 (𝜑 → ((𝑡(+g𝐺)𝑠) = 𝑡 ↔ (𝑡(+g𝐻)𝑠) = 𝑡))
74, 6anbi12d 633 . . . . . 6 (𝜑 → (((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡) ↔ ((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)))
81, 7raleqbidv 3319 . . . . 5 (𝜑 → (∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡) ↔ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)))
91, 8rabeqbidv 3398 . . . 4 (𝜑 → {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})
109sseq2d 3926 . . 3 (𝜑 → (ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)} ↔ ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))
11 eqidd 2759 . . . 4 (𝜑 → (Base‘𝐺) = (Base‘𝐺))
122oveqdr 7183 . . . 4 ((𝜑 ∧ (𝑎 ∈ (Base‘𝐺) ∧ 𝑏 ∈ (Base‘𝐺))) → (𝑎(+g𝐺)𝑏) = (𝑎(+g𝐻)𝑏))
1311, 1, 12grpidpropd 17943 . . 3 (𝜑 → (0g𝐺) = (0g𝐻))
142seqeq2d 13430 . . . . . . . . . 10 (𝜑 → seq𝑚((+g𝐺), 𝐹) = seq𝑚((+g𝐻), 𝐹))
1514fveq1d 6664 . . . . . . . . 9 (𝜑 → (seq𝑚((+g𝐺), 𝐹)‘𝑛) = (seq𝑚((+g𝐻), 𝐹)‘𝑛))
1615eqeq2d 2769 . . . . . . . 8 (𝜑 → (𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛) ↔ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛)))
1716anbi2d 631 . . . . . . 7 (𝜑 → ((dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛)) ↔ (dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
1817rexbidv 3221 . . . . . 6 (𝜑 → (∃𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛)) ↔ ∃𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
1918exbidv 1922 . . . . 5 (𝜑 → (∃𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛)) ↔ ∃𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
2019iotabidv 6323 . . . 4 (𝜑 → (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛))) = (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))))
219difeq2d 4030 . . . . . . . . . . . 12 (𝜑 → (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}) = (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))
2221imaeq2d 5905 . . . . . . . . . . 11 (𝜑 → (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) = (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))
2322fveq2d 6666 . . . . . . . . . 10 (𝜑 → (♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))) = (♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))
2423oveq2d 7171 . . . . . . . . 9 (𝜑 → (1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))) = (1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))
2524f1oeq2d 6602 . . . . . . . 8 (𝜑 → (𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ↔ 𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))
2622f1oeq3d 6603 . . . . . . . 8 (𝜑 → (𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ↔ 𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))
2725, 26bitrd 282 . . . . . . 7 (𝜑 → (𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ↔ 𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))
282seqeq2d 13430 . . . . . . . . 9 (𝜑 → seq1((+g𝐺), (𝐹𝑓)) = seq1((+g𝐻), (𝐹𝑓)))
2928, 23fveq12d 6669 . . . . . . . 8 (𝜑 → (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))) = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))
3029eqeq2d 2769 . . . . . . 7 (𝜑 → (𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))) ↔ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))))
3127, 30anbi12d 633 . . . . . 6 (𝜑 → ((𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))) ↔ (𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))))
3231exbidv 1922 . . . . 5 (𝜑 → (∃𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))) ↔ ∃𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))))
3332iotabidv 6323 . . . 4 (𝜑 → (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))))) = (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))))
3420, 33ifeq12d 4444 . . 3 (𝜑 → if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))))) = if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))))))
3510, 13, 34ifbieq12d 4451 . 2 (𝜑 → if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}, (0g𝐺), if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))))))) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}, (0g𝐻), if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))))))
36 eqid 2758 . . 3 (Base‘𝐺) = (Base‘𝐺)
37 eqid 2758 . . 3 (0g𝐺) = (0g𝐺)
38 eqid 2758 . . 3 (+g𝐺) = (+g𝐺)
39 eqid 2758 . . 3 {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}
40 eqidd 2759 . . 3 (𝜑 → (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) = (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))
41 gsumpropd.g . . 3 (𝜑𝐺𝑊)
42 gsumpropd.f . . 3 (𝜑𝐹𝑉)
43 eqidd 2759 . . 3 (𝜑 → dom 𝐹 = dom 𝐹)
4436, 37, 38, 39, 40, 41, 42, 43gsumvalx 17957 . 2 (𝜑 → (𝐺 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}, (0g𝐺), if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐺), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐺), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g𝐺)𝑡) = 𝑡 ∧ (𝑡(+g𝐺)𝑠) = 𝑡)})))))))))
45 eqid 2758 . . 3 (Base‘𝐻) = (Base‘𝐻)
46 eqid 2758 . . 3 (0g𝐻) = (0g𝐻)
47 eqid 2758 . . 3 (+g𝐻) = (+g𝐻)
48 eqid 2758 . . 3 {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}
49 eqidd 2759 . . 3 (𝜑 → (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) = (𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))
50 gsumpropd.h . . 3 (𝜑𝐻𝑋)
5145, 46, 47, 48, 49, 50, 42, 43gsumvalx 17957 . 2 (𝜑 → (𝐻 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}, (0g𝐻), if(dom 𝐹 ∈ ran ..., (℩𝑥𝑚𝑛 ∈ (ℤ𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g𝐻), 𝐹)‘𝑛))), (℩𝑥𝑓(𝑓:(1...(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)}))))–1-1-onto→(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})) ∧ 𝑥 = (seq1((+g𝐻), (𝐹𝑓))‘(♯‘(𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g𝐻)𝑡) = 𝑡 ∧ (𝑡(+g𝐻)𝑠) = 𝑡)})))))))))
5235, 44, 513eqtr4d 2803 1 (𝜑 → (𝐺 Σg 𝐹) = (𝐻 Σg 𝐹))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538  ∃wex 1781   ∈ wcel 2111  ∀wral 3070  ∃wrex 3071  {crab 3074  Vcvv 3409   ∖ cdif 3857   ⊆ wss 3860  ifcif 4423  ◡ccnv 5526  dom cdm 5527  ran crn 5528   “ cima 5530   ∘ ccom 5531  ℩cio 6296  –1-1-onto→wf1o 6338  ‘cfv 6339  (class class class)co 7155  1c1 10581  ℤ≥cuz 12287  ...cfz 12944  seqcseq 13423  ♯chash 13745  Basecbs 16546  +gcplusg 16628  0gc0g 16776   Σg cgsu 16777 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-sep 5172  ax-nul 5179  ax-pow 5237  ax-pr 5301  ax-un 7464 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-rab 3079  df-v 3411  df-sbc 3699  df-csb 3808  df-dif 3863  df-un 3865  df-in 3867  df-ss 3877  df-nul 4228  df-if 4424  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4802  df-br 5036  df-opab 5098  df-mpt 5116  df-id 5433  df-xp 5533  df-rel 5534  df-cnv 5535  df-co 5536  df-dm 5537  df-rn 5538  df-res 5539  df-ima 5540  df-pred 6130  df-iota 6298  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-ov 7158  df-oprab 7159  df-mpo 7160  df-wrecs 7962  df-recs 8023  df-rdg 8061  df-seq 13424  df-0g 16778  df-gsum 16779 This theorem is referenced by:  frlmgsum  20542  psropprmul  20967  ply1coe  21025  matgsum  21142  tsmspropd  22837  gsumsra  30837  elrsp  31094  mnringmulrd  41332
 Copyright terms: Public domain W3C validator