Theorem sumeq2sdv 15759

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 3860	. . . . . . . . . 10 ⊢ (𝜑 → ⦋𝑛 / 𝑘⦌𝐵 = ⦋𝑛 / 𝑘⦌𝐶)
3	2	ifeq1d 4507	. . . . . . . . 9 ⊢ (𝜑 → if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) = if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))
4	3	mpteq2dv 5205	. . . . . . . 8 ⊢ (𝜑 → (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0)))
5	4	seqeq3d 14050	. . . . . . 7 ⊢ (𝜑 → seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) = seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))))
6	5	breq1d 5119	. . . . . 6 ⊢ (𝜑 → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥))
7	6	anbi2d 641	. . . . 5 ⊢ (𝜑 → ((𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥)))
8	7	rexbidv 3189	. . . 4 ⊢ (𝜑 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ↔ ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥)))
9	1	csbeq2dv 3860	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋(𝑓‘𝑛) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑛) / 𝑘⦌𝐶)
10	9	mpteq2dv 5205	. . . . . . . . . 10 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵) = (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))
11	10	seqeq3d 14050	. . . . . . . . 9 ⊢ (𝜑 → seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵)) = seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶)))
12	11	fveq1d 6883	. . . . . . . 8 ⊢ (𝜑 → (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚) = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))
13	12	eqeq2d 2774	. . . . . . 7 ⊢ (𝜑 → (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚) ↔ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))
14	13	anbi2d 641	. . . . . 6 ⊢ (𝜑 → ((𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
15	14	exbidv 1951	. . . . 5 ⊢ (𝜑 → (∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
16	15	rexbidv 3189	. . . 4 ⊢ (𝜑 → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
17	8, 16	orbi12d 931	. . 3 ⊢ (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚))) ↔ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))))
18	17	iotabidv 6520	. 2 ⊢ (𝜑 → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚)))) = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚)))))
19		df-sum 15743	. 2 ⊢ Σ𝑘 ∈ 𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵))‘𝑚))))
20		df-sum 15743	. 2 ⊢ Σ𝑘 ∈ 𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐶, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐶))‘𝑚))))
21	18, 19, 20	3eqtr4g 2823	1 ⊢ (𝜑 → Σ𝑘 ∈ 𝐴 𝐵 = Σ𝑘 ∈ 𝐴 𝐶)

This proof depends on syntax axioms:   → wi 4   ∧ wa 400   ∨ wo 860   = wceq 1570  ∃wex 1809   ∈ wcel 2143  ∃wrex 3089  ⦋csb 3853   ⊆ wss 3905  ifcif 4487   class class class wbr 5109   ↦ cmpt 5192  ℩cio 6490  –1-1-onto→wf1o 6535  ‘cfv 6536  (class class class)co 7410  0cc0 11104  1c1 11105   + caddc 11107  ℕcn 12237  ℤcz 12595  ℤ_≥cuz 12866  ...cfz 13539  seqcseq 14042   ⇝ cli 15540  Σcsu 15742

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-ext 2735

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-mpt 5193  df-xp 5667  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-iota 6492  df-fv 6544  df-ov 7413  df-oprab 7414  df-mpo 7415  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-seq 14043  df-sum 15743

This theorem is used by:  sumsplit  15824  fsumrlim  15868  hash2iun1dif1  15881  incexclem  15895  bpolylem  16106  bpolyval  16107  efval  16137  rpnnen2lem12  16285  pcfac  16963  ramcl  17093  cshwshashnsame  17167  fsumcn  25038  fsum2cn  25039  lebnumlem3  25131  rrxdsfival  25581  uniioombllem6  25756  itg1climres  25882  itgeq1f  25939  itgeq1fOLD  25940  itgeq1  25941  cbvitgv  25945  itgeq2  25946  dvmptfsum  26143  elplyr  26367  plyeq0lem  26376  plyadd  26383  plymul  26384  coeeu  26391  coelem  26392  coeeq  26393  coeidlem  26403  coeid  26404  coeid2  26405  plyco  26407  plycjlem  26442  aareccl  26498  taylply2  26540  pserdvlem2  26600  pserdv  26601  abelthlem6  26608  abelthlem9  26612  logtayl  26834  leibpi  27116  basellem3  27256  dchrvmasum2if  27670  dchrvmaeq0  27677  rpvmasum2  27685  dchrisum0re  27686  brcgr  29259  axsegcon  29286  dipfval  31063  ipval  31064  fsumiunle  33182  itgeq12dv  34725  eulerpartleme  34762  eulerpartlemr  34773  eulerpartlemn  34780  reprsum  35009  reprsuc  35011  reprpmtf1o  35022  vtsval  35033  iprodgam  36242  fwddifnval  36663  sumeq12sdv  36757  itgeq12sdv  36759  cbvitgdavw  36821  cbvitgdavw2  36837  knoppndvlem6  37134  knoppf  37152  rrnmval  38507  fsumshftd  39754  fsumcnf  45769  mccl  46342  dvnmul  46685  dvmptfprod  46687  dvnprodlem1  46688  dvnprodlem3  46690  dvnprod  46691  stoweidlem17  46759  stoweidlem26  46768  stoweidlem30  46772  stoweidlem32  46774  dirkertrigeq  46843  dirkeritg  46844  fourierdlem83  46931  fourierdlem103  46951  etransclem11  46987  etransclem24  47000  etransclem26  47002  etransclem27  47003  etransclem28  47004  etransclem31  47007  etransclem35  47011  etransclem46  47022  etransclem47  47023  rrndistlt  47032  ioorrnopn  47047  sge0val  47108  hoiqssbllem2  47365  nnsum3primes4  48581  nnsum4primesodd  48589  nnsum4primesoddALTV  48590  nnsum4primesevenALTV  48594  nn0sumshdiglemB  49428  nn0sumshdiglem1  49429  aacllem  50649