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

Theorem fprod2dlemstep 11530
Description: Lemma for fprod2d 11531- induction step. (Contributed by Scott Fenton, 30-Jan-2018.)
Hypotheses
Ref Expression
fprod2d.1 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
fprod2d.2 (𝜑𝐴 ∈ Fin)
fprod2d.3 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
fprod2d.4 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ ℂ)
fprod2d.5 (𝜑 → ¬ 𝑦𝑥)
fprod2d.6 (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
fprod2dlemstep.x (𝜑𝑥 ∈ Fin)
fprod2d.7 (𝜓 ↔ ∏𝑗𝑥𝑘𝐵 𝐶 = ∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
Assertion
Ref Expression
fprod2dlemstep ((𝜑𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘𝐵 𝐶 = ∏𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)
Distinct variable groups:   𝐴,𝑗,𝑘   𝐵,𝑘,𝑧   𝑧,𝐶   𝐷,𝑗,𝑘   𝜑,𝑗   𝑥,𝑗   𝑦,𝑗,𝑧   𝜑,𝑘   𝑥,𝑘   𝑦,𝑘,𝑧   𝜑,𝑧   𝑥,𝑧   𝑦,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦)   𝜓(𝑥,𝑦,𝑧,𝑗,𝑘)   𝐴(𝑥,𝑦,𝑧)   𝐵(𝑥,𝑦,𝑗)   𝐶(𝑥,𝑦,𝑗,𝑘)   𝐷(𝑥,𝑦,𝑧)

Proof of Theorem fprod2dlemstep
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 simpr 109 . . . 4 ((𝜑𝜓) → 𝜓)
2 fprod2d.7 . . . 4 (𝜓 ↔ ∏𝑗𝑥𝑘𝐵 𝐶 = ∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
31, 2sylib 121 . . 3 ((𝜑𝜓) → ∏𝑗𝑥𝑘𝐵 𝐶 = ∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷)
4 nfcv 2299 . . . . . 6 𝑚𝑘𝐵 𝐶
5 nfcsb1v 3064 . . . . . . 7 𝑗𝑚 / 𝑗𝐵
6 nfcsb1v 3064 . . . . . . 7 𝑗𝑚 / 𝑗𝐶
75, 6nfcprod 11463 . . . . . 6 𝑗𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶
8 csbeq1a 3040 . . . . . . 7 (𝑗 = 𝑚𝐵 = 𝑚 / 𝑗𝐵)
9 csbeq1a 3040 . . . . . . . 8 (𝑗 = 𝑚𝐶 = 𝑚 / 𝑗𝐶)
109adantr 274 . . . . . . 7 ((𝑗 = 𝑚𝑘𝐵) → 𝐶 = 𝑚 / 𝑗𝐶)
118, 10prodeq12dv 11477 . . . . . 6 (𝑗 = 𝑚 → ∏𝑘𝐵 𝐶 = ∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶)
124, 7, 11cbvprodi 11468 . . . . 5 𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶 = ∏𝑚 ∈ {𝑦}∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶
13 fprod2d.6 . . . . . . . . 9 (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
1413unssbd 3286 . . . . . . . 8 (𝜑 → {𝑦} ⊆ 𝐴)
15 vex 2715 . . . . . . . . 9 𝑦 ∈ V
1615snss 3687 . . . . . . . 8 (𝑦𝐴 ↔ {𝑦} ⊆ 𝐴)
1714, 16sylibr 133 . . . . . . 7 (𝜑𝑦𝐴)
18 fprod2d.3 . . . . . . . . . 10 ((𝜑𝑗𝐴) → 𝐵 ∈ Fin)
1918ralrimiva 2530 . . . . . . . . 9 (𝜑 → ∀𝑗𝐴 𝐵 ∈ Fin)
20 nfcsb1v 3064 . . . . . . . . . . 11 𝑗𝑦 / 𝑗𝐵
2120nfel1 2310 . . . . . . . . . 10 𝑗𝑦 / 𝑗𝐵 ∈ Fin
22 csbeq1a 3040 . . . . . . . . . . 11 (𝑗 = 𝑦𝐵 = 𝑦 / 𝑗𝐵)
2322eleq1d 2226 . . . . . . . . . 10 (𝑗 = 𝑦 → (𝐵 ∈ Fin ↔ 𝑦 / 𝑗𝐵 ∈ Fin))
2421, 23rspc 2810 . . . . . . . . 9 (𝑦𝐴 → (∀𝑗𝐴 𝐵 ∈ Fin → 𝑦 / 𝑗𝐵 ∈ Fin))
2517, 19, 24sylc 62 . . . . . . . 8 (𝜑𝑦 / 𝑗𝐵 ∈ Fin)
26 fprod2d.4 . . . . . . . . . . 11 ((𝜑 ∧ (𝑗𝐴𝑘𝐵)) → 𝐶 ∈ ℂ)
2726ralrimivva 2539 . . . . . . . . . 10 (𝜑 → ∀𝑗𝐴𝑘𝐵 𝐶 ∈ ℂ)
28 nfcsb1v 3064 . . . . . . . . . . . . 13 𝑗𝑦 / 𝑗𝐶
2928nfel1 2310 . . . . . . . . . . . 12 𝑗𝑦 / 𝑗𝐶 ∈ ℂ
3020, 29nfralw 2494 . . . . . . . . . . 11 𝑗𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ
31 csbeq1a 3040 . . . . . . . . . . . . 13 (𝑗 = 𝑦𝐶 = 𝑦 / 𝑗𝐶)
3231eleq1d 2226 . . . . . . . . . . . 12 (𝑗 = 𝑦 → (𝐶 ∈ ℂ ↔ 𝑦 / 𝑗𝐶 ∈ ℂ))
3322, 32raleqbidv 2664 . . . . . . . . . . 11 (𝑗 = 𝑦 → (∀𝑘𝐵 𝐶 ∈ ℂ ↔ ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ))
3430, 33rspc 2810 . . . . . . . . . 10 (𝑦𝐴 → (∀𝑗𝐴𝑘𝐵 𝐶 ∈ ℂ → ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ))
3517, 27, 34sylc 62 . . . . . . . . 9 (𝜑 → ∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ)
3635r19.21bi 2545 . . . . . . . 8 ((𝜑𝑘𝑦 / 𝑗𝐵) → 𝑦 / 𝑗𝐶 ∈ ℂ)
3725, 36fprodcl 11515 . . . . . . 7 (𝜑 → ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ)
38 csbeq1 3034 . . . . . . . . 9 (𝑚 = 𝑦𝑚 / 𝑗𝐵 = 𝑦 / 𝑗𝐵)
39 csbeq1 3034 . . . . . . . . . 10 (𝑚 = 𝑦𝑚 / 𝑗𝐶 = 𝑦 / 𝑗𝐶)
4039adantr 274 . . . . . . . . 9 ((𝑚 = 𝑦𝑘𝑚 / 𝑗𝐵) → 𝑚 / 𝑗𝐶 = 𝑦 / 𝑗𝐶)
4138, 40prodeq12dv 11477 . . . . . . . 8 (𝑚 = 𝑦 → ∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
4241prodsn 11501 . . . . . . 7 ((𝑦𝐴 ∧ ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ) → ∏𝑚 ∈ {𝑦}∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
4317, 37, 42syl2anc 409 . . . . . 6 (𝜑 → ∏𝑚 ∈ {𝑦}∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶)
44 nfcv 2299 . . . . . . . 8 𝑚𝑦 / 𝑗𝐶
45 nfcsb1v 3064 . . . . . . . 8 𝑘𝑚 / 𝑘𝑦 / 𝑗𝐶
46 csbeq1a 3040 . . . . . . . 8 (𝑘 = 𝑚𝑦 / 𝑗𝐶 = 𝑚 / 𝑘𝑦 / 𝑗𝐶)
4744, 45, 46cbvprodi 11468 . . . . . . 7 𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 = ∏𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶
48 csbeq1 3034 . . . . . . . . 9 (𝑚 = (2nd𝑧) → 𝑚 / 𝑘𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
49 snfig 6761 . . . . . . . . . . 11 (𝑦 ∈ V → {𝑦} ∈ Fin)
5049elv 2716 . . . . . . . . . 10 {𝑦} ∈ Fin
51 xpfi 6876 . . . . . . . . . 10 (({𝑦} ∈ Fin ∧ 𝑦 / 𝑗𝐵 ∈ Fin) → ({𝑦} × 𝑦 / 𝑗𝐵) ∈ Fin)
5250, 25, 51sylancr 411 . . . . . . . . 9 (𝜑 → ({𝑦} × 𝑦 / 𝑗𝐵) ∈ Fin)
53 2ndconst 6171 . . . . . . . . . 10 (𝑦𝐴 → (2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵)):({𝑦} × 𝑦 / 𝑗𝐵)–1-1-onto𝑦 / 𝑗𝐵)
5417, 53syl 14 . . . . . . . . 9 (𝜑 → (2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵)):({𝑦} × 𝑦 / 𝑗𝐵)–1-1-onto𝑦 / 𝑗𝐵)
55 fvres 5494 . . . . . . . . . 10 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → ((2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵))‘𝑧) = (2nd𝑧))
5655adantl 275 . . . . . . . . 9 ((𝜑𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → ((2nd ↾ ({𝑦} × 𝑦 / 𝑗𝐵))‘𝑧) = (2nd𝑧))
5745nfel1 2310 . . . . . . . . . . 11 𝑘𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ
5846eleq1d 2226 . . . . . . . . . . 11 (𝑘 = 𝑚 → (𝑦 / 𝑗𝐶 ∈ ℂ ↔ 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ))
5957, 58rspc 2810 . . . . . . . . . 10 (𝑚𝑦 / 𝑗𝐵 → (∀𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 ∈ ℂ → 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ))
6035, 59mpan9 279 . . . . . . . . 9 ((𝜑𝑚𝑦 / 𝑗𝐵) → 𝑚 / 𝑘𝑦 / 𝑗𝐶 ∈ ℂ)
6148, 52, 54, 56, 60fprodf1o 11496 . . . . . . . 8 (𝜑 → ∏𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
62 elxp 4605 . . . . . . . . . . . 12 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) ↔ ∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)))
63 nfv 1508 . . . . . . . . . . . . . . 15 𝑗 𝑧 = ⟨𝑚, 𝑘
64 nfv 1508 . . . . . . . . . . . . . . . 16 𝑗 𝑚 ∈ {𝑦}
6520nfcri 2293 . . . . . . . . . . . . . . . 16 𝑗 𝑘𝑦 / 𝑗𝐵
6664, 65nfan 1545 . . . . . . . . . . . . . . 15 𝑗(𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)
6763, 66nfan 1545 . . . . . . . . . . . . . 14 𝑗(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵))
6867nfex 1617 . . . . . . . . . . . . 13 𝑗𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵))
69 nfv 1508 . . . . . . . . . . . . 13 𝑚𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))
70 opeq1 3743 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑗 → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
7170eqeq2d 2169 . . . . . . . . . . . . . . 15 (𝑚 = 𝑗 → (𝑧 = ⟨𝑚, 𝑘⟩ ↔ 𝑧 = ⟨𝑗, 𝑘⟩))
72 eleq1w 2218 . . . . . . . . . . . . . . . . . 18 (𝑚 = 𝑗 → (𝑚 ∈ {𝑦} ↔ 𝑗 ∈ {𝑦}))
73 velsn 3578 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ {𝑦} ↔ 𝑗 = 𝑦)
7472, 73bitrdi 195 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑗 → (𝑚 ∈ {𝑦} ↔ 𝑗 = 𝑦))
7574anbi1d 461 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵) ↔ (𝑗 = 𝑦𝑘𝑦 / 𝑗𝐵)))
7622eleq2d 2227 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑦 → (𝑘𝐵𝑘𝑦 / 𝑗𝐵))
7776pm5.32i 450 . . . . . . . . . . . . . . . 16 ((𝑗 = 𝑦𝑘𝐵) ↔ (𝑗 = 𝑦𝑘𝑦 / 𝑗𝐵))
7875, 77bitr4di 197 . . . . . . . . . . . . . . 15 (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵) ↔ (𝑗 = 𝑦𝑘𝐵)))
7971, 78anbi12d 465 . . . . . . . . . . . . . 14 (𝑚 = 𝑗 → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ (𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))))
8079exbidv 1805 . . . . . . . . . . . . 13 (𝑚 = 𝑗 → (∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ ∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵))))
8168, 69, 80cbvexv1 1732 . . . . . . . . . . . 12 (∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘𝑦 / 𝑗𝐵)) ↔ ∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)))
8262, 81bitri 183 . . . . . . . . . . 11 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) ↔ ∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)))
83 nfv 1508 . . . . . . . . . . . 12 𝑗𝜑
84 nfcv 2299 . . . . . . . . . . . . . 14 𝑗(2nd𝑧)
8584, 28nfcsbw 3067 . . . . . . . . . . . . 13 𝑗(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
8685nfeq2 2311 . . . . . . . . . . . 12 𝑗 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
87 nfv 1508 . . . . . . . . . . . . 13 𝑘𝜑
88 nfcsb1v 3064 . . . . . . . . . . . . . 14 𝑘(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
8988nfeq2 2311 . . . . . . . . . . . . 13 𝑘 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶
90 fprod2d.1 . . . . . . . . . . . . . . . 16 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
9190ad2antlr 481 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = 𝐶)
9231ad2antrl 482 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐶 = 𝑦 / 𝑗𝐶)
93 fveq2 5470 . . . . . . . . . . . . . . . . . 18 (𝑧 = ⟨𝑗, 𝑘⟩ → (2nd𝑧) = (2nd ‘⟨𝑗, 𝑘⟩))
94 vex 2715 . . . . . . . . . . . . . . . . . . 19 𝑗 ∈ V
95 vex 2715 . . . . . . . . . . . . . . . . . . 19 𝑘 ∈ V
9694, 95op2nd 6097 . . . . . . . . . . . . . . . . . 18 (2nd ‘⟨𝑗, 𝑘⟩) = 𝑘
9793, 96eqtr2di 2207 . . . . . . . . . . . . . . . . 17 (𝑧 = ⟨𝑗, 𝑘⟩ → 𝑘 = (2nd𝑧))
9897ad2antlr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝑘 = (2nd𝑧))
99 csbeq1a 3040 . . . . . . . . . . . . . . . 16 (𝑘 = (2nd𝑧) → 𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10098, 99syl 14 . . . . . . . . . . . . . . 15 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝑦 / 𝑗𝐶 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10191, 92, 1003eqtrd 2194 . . . . . . . . . . . . . 14 (((𝜑𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
102101expl 376 . . . . . . . . . . . . 13 (𝜑 → ((𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10387, 89, 102exlimd 1577 . . . . . . . . . . . 12 (𝜑 → (∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10483, 86, 103exlimd 1577 . . . . . . . . . . 11 (𝜑 → (∃𝑗𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦𝑘𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
10582, 104syl5bi 151 . . . . . . . . . 10 (𝜑 → (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶))
106105imp 123 . . . . . . . . 9 ((𝜑𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → 𝐷 = (2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
107106prodeq2dv 11474 . . . . . . . 8 (𝜑 → ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)(2nd𝑧) / 𝑘𝑦 / 𝑗𝐶)
10861, 107eqtr4d 2193 . . . . . . 7 (𝜑 → ∏𝑚 𝑦 / 𝑗𝐵𝑚 / 𝑘𝑦 / 𝑗𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
10947, 108syl5eq 2202 . . . . . 6 (𝜑 → ∏𝑘 𝑦 / 𝑗𝐵𝑦 / 𝑗𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
11043, 109eqtrd 2190 . . . . 5 (𝜑 → ∏𝑚 ∈ {𝑦}∏𝑘 𝑚 / 𝑗𝐵𝑚 / 𝑗𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
11112, 110syl5eq 2202 . . . 4 (𝜑 → ∏𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
112111adantr 274 . . 3 ((𝜑𝜓) → ∏𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶 = ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷)
1133, 112oveq12d 5844 . 2 ((𝜑𝜓) → (∏𝑗𝑥𝑘𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶) = (∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
114 fprod2d.5 . . . . 5 (𝜑 → ¬ 𝑦𝑥)
115 disjsn 3623 . . . . 5 ((𝑥 ∩ {𝑦}) = ∅ ↔ ¬ 𝑦𝑥)
116114, 115sylibr 133 . . . 4 (𝜑 → (𝑥 ∩ {𝑦}) = ∅)
117 eqidd 2158 . . . 4 (𝜑 → (𝑥 ∪ {𝑦}) = (𝑥 ∪ {𝑦}))
118 fprod2dlemstep.x . . . . 5 (𝜑𝑥 ∈ Fin)
11915a1i 9 . . . . 5 (𝜑𝑦 ∈ V)
120 unsnfi 6865 . . . . 5 ((𝑥 ∈ Fin ∧ 𝑦 ∈ V ∧ ¬ 𝑦𝑥) → (𝑥 ∪ {𝑦}) ∈ Fin)
121118, 119, 114, 120syl3anc 1220 . . . 4 (𝜑 → (𝑥 ∪ {𝑦}) ∈ Fin)
12213sselda 3128 . . . . 5 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝑗𝐴)
12326anassrs 398 . . . . . 6 (((𝜑𝑗𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ ℂ)
12418, 123fprodcl 11515 . . . . 5 ((𝜑𝑗𝐴) → ∏𝑘𝐵 𝐶 ∈ ℂ)
125122, 124syldan 280 . . . 4 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → ∏𝑘𝐵 𝐶 ∈ ℂ)
126116, 117, 121, 125fprodsplit 11505 . . 3 (𝜑 → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘𝐵 𝐶 = (∏𝑗𝑥𝑘𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶))
127126adantr 274 . 2 ((𝜑𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘𝐵 𝐶 = (∏𝑗𝑥𝑘𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘𝐵 𝐶))
128 eliun 3855 . . . . . . . . . 10 (𝑧 𝑗𝑥 ({𝑗} × 𝐵) ↔ ∃𝑗𝑥 𝑧 ∈ ({𝑗} × 𝐵))
129 xp1st 6115 . . . . . . . . . . . . . 14 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ {𝑗})
130 elsni 3579 . . . . . . . . . . . . . 14 ((1st𝑧) ∈ {𝑗} → (1st𝑧) = 𝑗)
131129, 130syl 14 . . . . . . . . . . . . 13 (𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) = 𝑗)
132131eleq1d 2226 . . . . . . . . . . . 12 (𝑧 ∈ ({𝑗} × 𝐵) → ((1st𝑧) ∈ 𝑥𝑗𝑥))
133132biimparc 297 . . . . . . . . . . 11 ((𝑗𝑥𝑧 ∈ ({𝑗} × 𝐵)) → (1st𝑧) ∈ 𝑥)
134133rexlimiva 2569 . . . . . . . . . 10 (∃𝑗𝑥 𝑧 ∈ ({𝑗} × 𝐵) → (1st𝑧) ∈ 𝑥)
135128, 134sylbi 120 . . . . . . . . 9 (𝑧 𝑗𝑥 ({𝑗} × 𝐵) → (1st𝑧) ∈ 𝑥)
136 xp1st 6115 . . . . . . . . 9 (𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵) → (1st𝑧) ∈ {𝑦})
137135, 136anim12i 336 . . . . . . . 8 ((𝑧 𝑗𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)) → ((1st𝑧) ∈ 𝑥 ∧ (1st𝑧) ∈ {𝑦}))
138 elin 3291 . . . . . . . 8 (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ↔ (𝑧 𝑗𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)))
139 elin 3291 . . . . . . . 8 ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ ((1st𝑧) ∈ 𝑥 ∧ (1st𝑧) ∈ {𝑦}))
140137, 138, 1393imtr4i 200 . . . . . . 7 (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) → (1st𝑧) ∈ (𝑥 ∩ {𝑦}))
141116eleq2d 2227 . . . . . . . 8 (𝜑 → ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ (1st𝑧) ∈ ∅))
142 noel 3399 . . . . . . . . 9 ¬ (1st𝑧) ∈ ∅
143142pm2.21i 636 . . . . . . . 8 ((1st𝑧) ∈ ∅ → 𝑧 ∈ ∅)
144141, 143syl6bi 162 . . . . . . 7 (𝜑 → ((1st𝑧) ∈ (𝑥 ∩ {𝑦}) → 𝑧 ∈ ∅))
145140, 144syl5 32 . . . . . 6 (𝜑 → (𝑧 ∈ ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) → 𝑧 ∈ ∅))
146145ssrdv 3134 . . . . 5 (𝜑 → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ⊆ ∅)
147 ss0 3435 . . . . 5 (( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) ⊆ ∅ → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) = ∅)
148146, 147syl 14 . . . 4 (𝜑 → ( 𝑗𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × 𝑦 / 𝑗𝐵)) = ∅)
149 iunxun 3930 . . . . . 6 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵))
150 nfcv 2299 . . . . . . . . 9 𝑚({𝑗} × 𝐵)
151 nfcv 2299 . . . . . . . . . 10 𝑗{𝑚}
152151, 5nfxp 4615 . . . . . . . . 9 𝑗({𝑚} × 𝑚 / 𝑗𝐵)
153 sneq 3572 . . . . . . . . . 10 (𝑗 = 𝑚 → {𝑗} = {𝑚})
154153, 8xpeq12d 4613 . . . . . . . . 9 (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × 𝑚 / 𝑗𝐵))
155150, 152, 154cbviun 3888 . . . . . . . 8 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = 𝑚 ∈ {𝑦} ({𝑚} × 𝑚 / 𝑗𝐵)
156 sneq 3572 . . . . . . . . . 10 (𝑚 = 𝑦 → {𝑚} = {𝑦})
157156, 38xpeq12d 4613 . . . . . . . . 9 (𝑚 = 𝑦 → ({𝑚} × 𝑚 / 𝑗𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵))
15815, 157iunxsn 3927 . . . . . . . 8 𝑚 ∈ {𝑦} ({𝑚} × 𝑚 / 𝑗𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵)
159155, 158eqtri 2178 . . . . . . 7 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = ({𝑦} × 𝑦 / 𝑗𝐵)
160159uneq2i 3259 . . . . . 6 ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵)) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵))
161149, 160eqtri 2178 . . . . 5 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵))
162161a1i 9 . . . 4 (𝜑 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = ( 𝑗𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × 𝑦 / 𝑗𝐵)))
163 snfig 6761 . . . . . . . 8 (𝑗 ∈ V → {𝑗} ∈ Fin)
164163elv 2716 . . . . . . 7 {𝑗} ∈ Fin
165122, 18syldan 280 . . . . . . 7 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝐵 ∈ Fin)
166 xpfi 6876 . . . . . . 7 (({𝑗} ∈ Fin ∧ 𝐵 ∈ Fin) → ({𝑗} × 𝐵) ∈ Fin)
167164, 165, 166sylancr 411 . . . . . 6 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → ({𝑗} × 𝐵) ∈ Fin)
168167ralrimiva 2530 . . . . 5 (𝜑 → ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
169 disjsnxp 6186 . . . . . 6 Disj 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)
170169a1i 9 . . . . 5 (𝜑Disj 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵))
171 iunfidisj 6892 . . . . 5 (((𝑥 ∪ {𝑦}) ∈ Fin ∧ ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin ∧ Disj 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)) → 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
172121, 168, 170, 171syl3anc 1220 . . . 4 (𝜑 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
173 eliun 3855 . . . . . 6 (𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ↔ ∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵))
174 elxp 4605 . . . . . . . 8 (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)))
175 simprl 521 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑧 = ⟨𝑚, 𝑘⟩)
176 simprrl 529 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑚 ∈ {𝑗})
177 elsni 3579 . . . . . . . . . . . . . . 15 (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
178176, 177syl 14 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑚 = 𝑗)
179178opeq1d 3749 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
180175, 179eqtrd 2190 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑧 = ⟨𝑗, 𝑘⟩)
181180, 90syl 14 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐷 = 𝐶)
182 simpll 519 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝜑)
183122adantr 274 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑗𝐴)
184 simprrr 530 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝑘𝐵)
185182, 183, 184, 26syl12anc 1218 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐶 ∈ ℂ)
186181, 185eqeltrd 2234 . . . . . . . . . 10 (((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵))) → 𝐷 ∈ ℂ)
187186ex 114 . . . . . . . . 9 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)) → 𝐷 ∈ ℂ))
188187exlimdvv 1877 . . . . . . . 8 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → (∃𝑚𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘𝐵)) → 𝐷 ∈ ℂ))
189174, 188syl5bi 151 . . . . . . 7 ((𝜑𝑗 ∈ (𝑥 ∪ {𝑦})) → (𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
190189rexlimdva 2574 . . . . . 6 (𝜑 → (∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
191173, 190syl5bi 151 . . . . 5 (𝜑 → (𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
192191imp 123 . . . 4 ((𝜑𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)) → 𝐷 ∈ ℂ)
193148, 162, 172, 192fprodsplit 11505 . . 3 (𝜑 → ∏𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
194193adantr 274 . 2 ((𝜑𝜓) → ∏𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (∏𝑧 𝑗𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × 𝑦 / 𝑗𝐵)𝐷))
195113, 127, 1943eqtr4d 2200 1 ((𝜑𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘𝐵 𝐶 = ∏𝑧 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104   = wceq 1335  wex 1472  wcel 2128  wral 2435  wrex 2436  Vcvv 2712  csb 3031  cun 3100  cin 3101  wss 3102  c0 3395  {csn 3561  cop 3564   ciun 3851  Disj wdisj 3944   × cxp 4586  cres 4590  1-1-ontowf1o 5171  cfv 5172  (class class class)co 5826  1st c1st 6088  2nd c2nd 6089  Fincfn 6687  cc 7732   · cmul 7739  cprod 11458
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1427  ax-7 1428  ax-gen 1429  ax-ie1 1473  ax-ie2 1474  ax-8 1484  ax-10 1485  ax-11 1486  ax-i12 1487  ax-bndl 1489  ax-4 1490  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-13 2130  ax-14 2131  ax-ext 2139  ax-coll 4081  ax-sep 4084  ax-nul 4092  ax-pow 4137  ax-pr 4171  ax-un 4395  ax-setind 4498  ax-iinf 4549  ax-cnex 7825  ax-resscn 7826  ax-1cn 7827  ax-1re 7828  ax-icn 7829  ax-addcl 7830  ax-addrcl 7831  ax-mulcl 7832  ax-mulrcl 7833  ax-addcom 7834  ax-mulcom 7835  ax-addass 7836  ax-mulass 7837  ax-distr 7838  ax-i2m1 7839  ax-0lt1 7840  ax-1rid 7841  ax-0id 7842  ax-rnegex 7843  ax-precex 7844  ax-cnre 7845  ax-pre-ltirr 7846  ax-pre-ltwlin 7847  ax-pre-lttrn 7848  ax-pre-apti 7849  ax-pre-ltadd 7850  ax-pre-mulgt0 7851  ax-pre-mulext 7852  ax-arch 7853  ax-caucvg 7854
This theorem depends on definitions:  df-bi 116  df-dc 821  df-3or 964  df-3an 965  df-tru 1338  df-fal 1341  df-nf 1441  df-sb 1743  df-eu 2009  df-mo 2010  df-clab 2144  df-cleq 2150  df-clel 2153  df-nfc 2288  df-ne 2328  df-nel 2423  df-ral 2440  df-rex 2441  df-reu 2442  df-rmo 2443  df-rab 2444  df-v 2714  df-sbc 2938  df-csb 3032  df-dif 3104  df-un 3106  df-in 3108  df-ss 3115  df-nul 3396  df-if 3507  df-pw 3546  df-sn 3567  df-pr 3568  df-op 3570  df-uni 3775  df-int 3810  df-iun 3853  df-disj 3945  df-br 3968  df-opab 4028  df-mpt 4029  df-tr 4065  df-id 4255  df-po 4258  df-iso 4259  df-iord 4328  df-on 4330  df-ilim 4331  df-suc 4333  df-iom 4552  df-xp 4594  df-rel 4595  df-cnv 4596  df-co 4597  df-dm 4598  df-rn 4599  df-res 4600  df-ima 4601  df-iota 5137  df-fun 5174  df-fn 5175  df-f 5176  df-f1 5177  df-fo 5178  df-f1o 5179  df-fv 5180  df-isom 5181  df-riota 5782  df-ov 5829  df-oprab 5830  df-mpo 5831  df-1st 6090  df-2nd 6091  df-recs 6254  df-irdg 6319  df-frec 6340  df-1o 6365  df-oadd 6369  df-er 6482  df-en 6688  df-dom 6689  df-fin 6690  df-pnf 7916  df-mnf 7917  df-xr 7918  df-ltxr 7919  df-le 7920  df-sub 8052  df-neg 8053  df-reap 8454  df-ap 8461  df-div 8550  df-inn 8839  df-2 8897  df-3 8898  df-4 8899  df-n0 9096  df-z 9173  df-uz 9445  df-q 9535  df-rp 9567  df-fz 9919  df-fzo 10051  df-seqfrec 10354  df-exp 10428  df-ihash 10661  df-cj 10753  df-re 10754  df-im 10755  df-rsqrt 10909  df-abs 10910  df-clim 11187  df-proddc 11459
This theorem is referenced by:  fprod2d  11531
  Copyright terms: Public domain W3C validator