Theorem sumeq2sdv 15610

Description: Equality deduction for sum. (Contributed by NM, 3-Jan-2006.) (Proof shortened by Glauco Siliprandi, 5-Apr-2020.) Avoid axioms. (Revised by GG, 14-Aug-2025.)

Hypothesis

Ref	Expression
sumeq2sdv.1	⊢ (𝜑 → 𝐵 = 𝐶)

Assertion

Ref	Expression
sumeq2sdv	⊢ (𝜑 → Σ𝑘 ∈ 𝐴 𝐵 = Σ𝑘 ∈ 𝐴 𝐶)

Distinct variable group:   𝜑,𝑘

Allowed substitution hints:   𝐴(𝑘)   𝐵(𝑘)   𝐶(𝑘)

Proof of Theorem sumeq2sdv

Dummy variables 𝑥 𝑚 𝑛 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		sumeq2sdv.1	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 = 𝐶)
2	1	csbeq2dv 3852	. . . . . . . . . 10 ⊢ (𝜑 → ⦋𝑛 / 𝑘⦌𝐵 = ⦋𝑛 / 𝑘⦌𝐶)
3	2	ifeq1d 4492	. . . . . . . . 9 ⊢ (𝜑 → if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) = if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))
4	3	mpteq2dv 5183	. . . . . . . 8 ⊢ (𝜑 → (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0)))
5	4	seqeq3d 13916	. . . . . . 7 ⊢ (𝜑 → seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) = seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))))
6	5	breq1d 5099	. . . . . 6 ⊢ (𝜑 → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥))
7	6	anbi2d 630	. . . . 5 ⊢ (𝜑 → ((𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥)))
8	7	rexbidv 3156	. . . 4 ⊢ (𝜑 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ↔ ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥)))
9	1	csbeq2dv 3852	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋(𝑓‘𝑛) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑛) / 𝑘⦌𝐶)
10	9	mpteq2dv 5183	. . . . . . . . . 10 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵) = (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))
11	10	seqeq3d 13916	. . . . . . . . 9 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵)) = seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶)))
12	11	fveq1d 6824	. . . . . . . 8 ⊢ (𝜑 → (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚) = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))
13	12	eqeq2d 2742	. . . . . . 7 ⊢ (𝜑 → (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚) ↔ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))
14	13	anbi2d 630	. . . . . 6 ⊢ (𝜑 → ((𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
15	14	exbidv 1922	. . . . 5 ⊢ (𝜑 → (∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
16	15	rexbidv 3156	. . . 4 ⊢ (𝜑 → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
17	8, 16	orbi12d 918	. . 3 ⊢ (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚))) ↔ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))))
18	17	iotabidv 6465	. 2 ⊢ (𝜑 → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)))) = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))))
19		df-sum 15594	. 2 ⊢ Σ𝑘 ∈ 𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚))))
20		df-sum 15594	. 2 ⊢ Σ𝑘 ∈ 𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
21	18, 19, 20	3eqtr4g 2791	1 ⊢ (𝜑 → Σ𝑘 ∈ 𝐴 𝐵 = Σ𝑘 ∈ 𝐴 𝐶)

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 847   = wceq 1541  ∃wex 1780   ∈ wcel 2111  ∃wrex 3056  ⦋csb 3845   ⊆ wss 3897  ifcif 4472   class class class wbr 5089   ↦ cmpt 5170  ℩cio 6435  –1-1-onto→wf1o 6480  ‘cfv 6481  (class class class)co 7346  0cc0 11006  1c1 11007   + caddc 11009  ℕcn 12125  ℤcz 12468  ℤ_≥cuz 12732  ...cfz 13407  seqcseq 13908   ⇝ cli 15391  Σcsu 15593

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-ext 2703

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2710  df-cleq 2723  df-clel 2806  df-ral 3048  df-rex 3057  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4281  df-if 4473  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-br 5090  df-opab 5152  df-mpt 5171  df-xp 5620  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6248  df-iota 6437  df-fv 6489  df-ov 7349  df-oprab 7350  df-mpo 7351  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-seq 13909  df-sum 15594

This theorem is referenced by:  sumsplit  15675  fsumrlim  15718  hash2iun1dif1  15731  incexclem  15743  bpolylem  15955  bpolyval  15956  efval  15986  rpnnen2lem12  16134  pcfac  16811  ramcl  16941  cshwshashnsame  17015  fsumcn  24788  fsum2cn  24789  lebnumlem3  24889  rrxdsfival  25340  uniioombllem6  25516  itg1climres  25642  itgeq1f  25699  itgeq1fOLD  25700  itgeq1  25701  cbvitgv  25705  itgeq2  25706  dvmptfsum  25906  elplyr  26133  plyeq0lem  26142  plyadd  26149  plymul  26150  coeeu  26157  coelem  26158  coeeq  26159  coeidlem  26169  coeid  26170  coeid2  26171  plyco  26173  plycjlem  26209  aareccl  26261  taylply2  26302  taylply2OLD  26303  pserdvlem2  26365  pserdv  26366  abelthlem6  26373  abelthlem9  26377  logtayl  26596  leibpi  26879  basellem3  27020  dchrvmasum2if  27435  dchrvmaeq0  27442  rpvmasum2  27450  dchrisum0re  27451  brcgr  28878  axsegcon  28905  dipfval  30682  ipval  30683  fsumiunle  32812  itgeq12dv  34339  eulerpartleme  34376  eulerpartlemr  34387  eulerpartlemn  34394  reprsum  34626  reprsuc  34628  reprpmtf1o  34639  vtsval  34650  iprodgam  35786  fwddifnval  36207  sumeq12sdv  36261  itgeq12sdv  36263  cbvitgdavw  36325  cbvitgdavw2  36341  knoppndvlem6  36561  knoppf  36579  rrnmval  37878  fsumshftd  39061  fsumcnf  45128  mccl  45708  dvnmul  46051  dvmptfprod  46053  dvnprodlem1  46054  dvnprodlem3  46056  dvnprod  46057  stoweidlem17  46125  stoweidlem26  46134  stoweidlem30  46138  stoweidlem32  46140  dirkertrigeq  46209  dirkeritg  46210  fourierdlem83  46297  fourierdlem103  46317  etransclem11  46353  etransclem24  46366  etransclem26  46368  etransclem27  46369  etransclem28  46370  etransclem31  46373  etransclem35  46377  etransclem46  46388  etransclem47  46389  rrndistlt  46398  ioorrnopn  46413  sge0val  46474  hoiqssbllem2  46731  nnsum3primes4  47898  nnsum4primesodd  47906  nnsum4primesoddALTV  47907  nnsum4primesevenALTV  47911  nn0sumshdiglemB  48731  nn0sumshdiglem1  48732  aacllem  49912