ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  cbvprod GIF version

Theorem cbvprod 12244
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 cbvprod.2 . . . . . . . . . . . . . . 15 𝑘𝐴
21nfcri 2378 . . . . . . . . . . . . . 14 𝑘 𝑗𝐴
3 cbvprod.4 . . . . . . . . . . . . . 14 𝑘𝐵
4 nfcv 2384 . . . . . . . . . . . . . 14 𝑘1
52, 3, 4nfif 3651 . . . . . . . . . . . . 13 𝑘if(𝑗𝐴, 𝐵, 1)
6 cbvprod.3 . . . . . . . . . . . . . . 15 𝑗𝐴
76nfcri 2378 . . . . . . . . . . . . . 14 𝑗 𝑘𝐴
8 cbvprod.5 . . . . . . . . . . . . . 14 𝑗𝐶
9 nfcv 2384 . . . . . . . . . . . . . 14 𝑗1
107, 8, 9nfif 3651 . . . . . . . . . . . . 13 𝑗if(𝑘𝐴, 𝐶, 1)
11 eleq1w 2293 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑗𝐴𝑘𝐴))
12 cbvprod.1 . . . . . . . . . . . . . 14 (𝑗 = 𝑘𝐵 = 𝐶)
1311, 12ifbieq1d 3645 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → if(𝑗𝐴, 𝐵, 1) = if(𝑘𝐴, 𝐶, 1))
145, 10, 13cbvmpt 4205 . . . . . . . . . . . 12 (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))
15 seqeq3 10814 . . . . . . . . . . . 12 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
1614, 15ax-mp 5 . . . . . . . . . . 11 seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
1716breq1i 4116 . . . . . . . . . 10 (seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦 ↔ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)
1817anbi2i 457 . . . . . . . . 9 ((𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ (𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
1918exbii 1654 . . . . . . . 8 (∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
2019rexbii 2549 . . . . . . 7 (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
21 seqeq3 10814 . . . . . . . . 9 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
2214, 21ax-mp 5 . . . . . . . 8 seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
2322breq1i 4116 . . . . . . 7 (seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥 ↔ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)
2420, 23anbi12i 460 . . . . . 6 ((∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥) ↔ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥))
2524anbi2i 457 . . . . 5 (((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ↔ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)))
2625rexbii 2549 . . . 4 (∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ↔ ∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)))
273, 8, 12cbvcsbw 3142 . . . . . . . . . . . 12 (𝑓𝑛) / 𝑗𝐵 = (𝑓𝑛) / 𝑘𝐶
28 ifeq1 3625 . . . . . . . . . . . 12 ((𝑓𝑛) / 𝑗𝐵 = (𝑓𝑛) / 𝑘𝐶 → if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1) = if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))
2927, 28ax-mp 5 . . . . . . . . . . 11 if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1) = if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)
3029mpteq2i 4197 . . . . . . . . . 10 (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))
31 seqeq3 10814 . . . . . . . . . 10 ((𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))))
3230, 31ax-mp 5 . . . . . . . . 9 seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))
3332fveq1i 5671 . . . . . . . 8 (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)
3433eqeq2i 2243 . . . . . . 7 (𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚) ↔ 𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚))
3534anbi2i 457 . . . . . 6 ((𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)))
3635exbii 1654 . . . . 5 (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)))
3736rexbii 2549 . . . 4 (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)))
3826, 37orbi12i 772 . . 3 ((∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚))) ↔ (∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚))))
3938iotabii 5336 . 2 (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)))) = (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚))))
40 df-proddc 12237 . 2 𝑗𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚))))
41 df-proddc 12237 . 2 𝑘𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚))))
4239, 40, 413eqtr4i 2263 1 𝑗𝐴 𝐵 = ∏𝑘𝐴 𝐶
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wo 716  DECID wdc 842   = wceq 1398  wex 1541  wcel 2203  wnfc 2371  wral 2520  wrex 2521  csb 3138  wss 3211  ifcif 3620   class class class wbr 4109  cmpt 4171  cio 5310  1-1-ontowf1o 5351  cfv 5352  (class class class)co 6050  0cc0 8127  1c1 8128   · cmul 8132  cle 8309   # cap 8855  cn 9237  cz 9577  cuz 9853  ...cfz 10342  seqcseq 10809  cli 11963  cprod 12236
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2214
This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-un 3215  df-in 3217  df-ss 3224  df-if 3621  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-br 4110  df-opab 4172  df-mpt 4173  df-cnv 4757  df-dm 4759  df-rn 4760  df-res 4761  df-iota 5312  df-fv 5360  df-ov 6053  df-oprab 6054  df-mpo 6055  df-recs 6536  df-frec 6622  df-seqfrec 10810  df-proddc 12237
This theorem is referenced by:  cbvprodv  12245  cbvprodi  12246
  Copyright terms: Public domain W3C validator