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

Theorem cbvprod 11534
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 2311 . . . . . . . . . . . . . 14 𝑘 𝑗𝐴
3 cbvprod.4 . . . . . . . . . . . . . 14 𝑘𝐵
4 nfcv 2317 . . . . . . . . . . . . . 14 𝑘1
52, 3, 4nfif 3560 . . . . . . . . . . . . 13 𝑘if(𝑗𝐴, 𝐵, 1)
6 cbvprod.3 . . . . . . . . . . . . . . 15 𝑗𝐴
76nfcri 2311 . . . . . . . . . . . . . 14 𝑗 𝑘𝐴
8 cbvprod.5 . . . . . . . . . . . . . 14 𝑗𝐶
9 nfcv 2317 . . . . . . . . . . . . . 14 𝑗1
107, 8, 9nfif 3560 . . . . . . . . . . . . 13 𝑗if(𝑘𝐴, 𝐶, 1)
11 eleq1w 2236 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑗𝐴𝑘𝐴))
12 cbvprod.1 . . . . . . . . . . . . . 14 (𝑗 = 𝑘𝐵 = 𝐶)
1311, 12ifbieq1d 3554 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → if(𝑗𝐴, 𝐵, 1) = if(𝑘𝐴, 𝐶, 1))
145, 10, 13cbvmpt 4093 . . . . . . . . . . . 12 (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))
15 seqeq3 10420 . . . . . . . . . . . 12 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
1614, 15ax-mp 5 . . . . . . . . . . 11 seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
1716breq1i 4005 . . . . . . . . . 10 (seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦 ↔ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)
1817anbi2i 457 . . . . . . . . 9 ((𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ (𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
1918exbii 1603 . . . . . . . 8 (∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
2019rexbii 2482 . . . . . . 7 (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
21 seqeq3 10420 . . . . . . . . 9 ((𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) → seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
2214, 21ax-mp 5 . . . . . . . 8 seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)))
2322breq1i 4005 . . . . . . 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 2482 . . . 4 (∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ↔ ∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)))
273, 8, 12cbvcsbw 3059 . . . . . . . . . . . 12 (𝑓𝑛) / 𝑗𝐵 = (𝑓𝑛) / 𝑘𝐶
28 ifeq1 3535 . . . . . . . . . . . 12 ((𝑓𝑛) / 𝑗𝐵 = (𝑓𝑛) / 𝑘𝐶 → if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1) = if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))
2927, 28ax-mp 5 . . . . . . . . . . 11 if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1) = if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)
3029mpteq2i 4085 . . . . . . . . . 10 (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))
31 seqeq3 10420 . . . . . . . . . 10 ((𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1))))
3230, 31ax-mp 5 . . . . . . . . 9 seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))
3332fveq1i 5508 . . . . . . . 8 (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)
3433eqeq2i 2186 . . . . . . 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 1603 . . . . 5 (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)))
3736rexbii 2482 . . . 4 (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚)))
3826, 37orbi12i 764 . . 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 5192 . 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 11527 . 2 𝑗𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝐵, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑗𝐵, 1)))‘𝑚))))
41 df-proddc 11527 . 2 𝑘𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ ((𝐴 ⊆ (ℤ𝑚) ∧ ∀𝑠 ∈ (ℤ𝑚)DECID 𝑠𝐴) ∧ (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 # 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛𝑚, (𝑓𝑛) / 𝑘𝐶, 1)))‘𝑚))))
4239, 40, 413eqtr4i 2206 1 𝑗𝐴 𝐵 = ∏𝑘𝐴 𝐶
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wo 708  DECID wdc 834   = wceq 1353  wex 1490  wcel 2146  wnfc 2304  wral 2453  wrex 2454  csb 3055  wss 3127  ifcif 3532   class class class wbr 3998  cmpt 4059  cio 5168  1-1-ontowf1o 5207  cfv 5208  (class class class)co 5865  0cc0 7786  1c1 7787   · cmul 7791  cle 7967   # cap 8512  cn 8892  cz 9226  cuz 9501  ...cfz 9979  seqcseq 10415  cli 11254  cprod 11526
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 614  ax-in2 615  ax-io 709  ax-5 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-ext 2157
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1459  df-sb 1761  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ral 2458  df-rex 2459  df-rab 2462  df-v 2737  df-sbc 2961  df-csb 3056  df-un 3131  df-in 3133  df-ss 3140  df-if 3533  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-br 3999  df-opab 4060  df-mpt 4061  df-cnv 4628  df-dm 4630  df-rn 4631  df-res 4632  df-iota 5170  df-fv 5216  df-ov 5868  df-oprab 5869  df-mpo 5870  df-recs 6296  df-frec 6382  df-seqfrec 10416  df-proddc 11527
This theorem is referenced by:  cbvprodv  11535  cbvprodi  11536
  Copyright terms: Public domain W3C validator