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

Theorem cbvprod 14689
Description: Change bound variable in a product. (Contributed by Scott Fenton, 4-Dec-2017.)
Hypotheses
Ref Expression
cbvprod.1 (𝑗 = 𝑘𝐵 = 𝐶)
cbvprod.2 𝑘𝐴
cbvprod.3 𝑗𝐴
cbvprod.4 𝑘𝐵
cbvprod.5 𝑗𝐶
Assertion
Ref Expression
cbvprod 𝑗𝐴 𝐵 = ∏𝑘𝐴 𝐶
Distinct variable group:   𝑗,𝑘
Allowed substitution hints:   𝐴(𝑗,𝑘)   𝐵(𝑗,𝑘)   𝐶(𝑗,𝑘)

Proof of Theorem cbvprod
Dummy variables 𝑓 𝑚 𝑛 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 biid 251 . . . . . 6 (𝐴 ⊆ (ℤ𝑚) ↔ 𝐴 ⊆ (ℤ𝑚))
2 cbvprod.2 . . . . . . . . . . . . . 14 𝑘𝐴
32nfcri 2787 . . . . . . . . . . . . 13 𝑘 𝑗𝐴
4 cbvprod.4 . . . . . . . . . . . . 13 𝑘𝐵
5 nfcv 2793 . . . . . . . . . . . . 13 𝑘1
63, 4, 5nfif 4148 . . . . . . . . . . . 12 𝑘if(𝑗𝐴, 𝐵, 1)
7 cbvprod.3 . . . . . . . . . . . . . 14 𝑗𝐴
87nfcri 2787 . . . . . . . . . . . . 13 𝑗 𝑘𝐴
9 cbvprod.5 . . . . . . . . . . . . 13 𝑗𝐶
10 nfcv 2793 . . . . . . . . . . . . 13 𝑗1
118, 9, 10nfif 4148 . . . . . . . . . . . 12 𝑗if(𝑘𝐴, 𝐶, 1)
12 eleq1 2718 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (𝑗𝐴𝑘𝐴))
13 cbvprod.1 . . . . . . . . . . . . 13 (𝑗 = 𝑘𝐵 = 𝐶)
1412, 13ifbieq1d 4142 . . . . . . . . . . . 12 (𝑗 = 𝑘 → if(𝑗𝐴, 𝐵, 1) = if(𝑘𝐴, 𝐶, 1))
156, 11, 14cbvmpt 4782 . . . . . . . . . . 11 (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))
16 seqeq3 12846 . . . . . . . . . . 11 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
1715, 16ax-mp 5 . . . . . . . . . 10 seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
1817breq1i 4692 . . . . . . . . 9 (seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦 ↔ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)
1918anbi2i 730 . . . . . . . 8 ((𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ (𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
2019exbii 1814 . . . . . . 7 (∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
2120rexbii 3070 . . . . . 6 (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
22 seqeq3 12846 . . . . . . . 8 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
2315, 22ax-mp 5 . . . . . . 7 seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
2423breq1i 4692 . . . . . 6 (seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥 ↔ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)
251, 21, 243anbi123i 1270 . . . . 5 ((𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥))
2625rexbii 3070 . . . 4 (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ↔ ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥))
274, 9, 13cbvcsb 3571 . . . . . . . . . . 11 (𝑓𝑛) / 𝑗𝐵 = (𝑓𝑛) / 𝑘𝐶
2827mpteq2i 4774 . . . . . . . . . 10 (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵) = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)
29 seqeq3 12846 . . . . . . . . . 10 ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵) = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶) → seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵)) = seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)))
3028, 29ax-mp 5 . . . . . . . . 9 seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵)) = seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))
3130fveq1i 6230 . . . . . . . 8 (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚) = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)
3231eqeq2i 2663 . . . . . . 7 (𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚) ↔ 𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))
3332anbi2i 730 . . . . . 6 ((𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))
3433exbii 1814 . . . . 5 (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))
3534rexbii 3070 . . . 4 (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))
3626, 35orbi12i 542 . . 3 ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚))) ↔ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
3736iotabii 5911 . 2 (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚)))) = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
38 df-prod 14680 . 2 𝑗𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑗𝐵))‘𝑚))))
39 df-prod 14680 . 2 𝑘𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
4037, 38, 393eqtr4i 2683 1 𝑗𝐴 𝐵 = ∏𝑘𝐴 𝐶
Colors of variables: wff setvar class
Syntax hints:  wi 4  wo 382  wa 383  w3a 1054   = wceq 1523  wex 1744  wcel 2030  wnfc 2780  wne 2823  wrex 2942  csb 3566  wss 3607  ifcif 4119   class class class wbr 4685  cmpt 4762  cio 5887  1-1-ontowf1o 5925  cfv 5926  (class class class)co 6690  0cc0 9974  1c1 9975   · cmul 9979  cn 11058  cz 11415  cuz 11725  ...cfz 12364  seqcseq 12841  cli 14259  cprod 14679
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1056  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ral 2946  df-rex 2947  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-nul 3949  df-if 4120  df-sn 4211  df-pr 4213  df-op 4217  df-uni 4469  df-br 4686  df-opab 4746  df-mpt 4763  df-xp 5149  df-cnv 5151  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-iota 5889  df-fv 5934  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-seq 12842  df-prod 14680
This theorem is referenced by:  cbvprodv  14690  cbvprodi  14691  fprodcllemf  14732  fproddivf  14762  fprodsplitf  14763  vonn0ioo2  41225  vonn0icc2  41227
  Copyright terms: Public domain W3C validator