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

Theorem fprodrec 12315
Description: The finite product of reciprocals is the reciprocal of the product. (Contributed by Jim Kingdon, 28-Aug-2024.)
Hypotheses
Ref Expression
fprodrec.a (𝜑𝐴 ∈ Fin)
fprodrec.ccl ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
fprodrec.cap ((𝜑𝑘𝐴) → 𝐵 # 0)
Assertion
Ref Expression
fprodrec (𝜑 → ∏𝑘𝐴 (1 / 𝐵) = (1 / ∏𝑘𝐴 𝐵))
Distinct variable groups:   𝐴,𝑘   𝜑,𝑘
Allowed substitution hint:   𝐵(𝑘)

Proof of Theorem fprodrec
Dummy variables 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prodeq1 12239 . . 3 (𝑤 = ∅ → ∏𝑘𝑤 (1 / 𝐵) = ∏𝑘 ∈ ∅ (1 / 𝐵))
2 prodeq1 12239 . . . 4 (𝑤 = ∅ → ∏𝑘𝑤 𝐵 = ∏𝑘 ∈ ∅ 𝐵)
32oveq2d 6066 . . 3 (𝑤 = ∅ → (1 / ∏𝑘𝑤 𝐵) = (1 / ∏𝑘 ∈ ∅ 𝐵))
41, 3eqeq12d 2247 . 2 (𝑤 = ∅ → (∏𝑘𝑤 (1 / 𝐵) = (1 / ∏𝑘𝑤 𝐵) ↔ ∏𝑘 ∈ ∅ (1 / 𝐵) = (1 / ∏𝑘 ∈ ∅ 𝐵)))
5 prodeq1 12239 . . 3 (𝑤 = 𝑦 → ∏𝑘𝑤 (1 / 𝐵) = ∏𝑘𝑦 (1 / 𝐵))
6 prodeq1 12239 . . . 4 (𝑤 = 𝑦 → ∏𝑘𝑤 𝐵 = ∏𝑘𝑦 𝐵)
76oveq2d 6066 . . 3 (𝑤 = 𝑦 → (1 / ∏𝑘𝑤 𝐵) = (1 / ∏𝑘𝑦 𝐵))
85, 7eqeq12d 2247 . 2 (𝑤 = 𝑦 → (∏𝑘𝑤 (1 / 𝐵) = (1 / ∏𝑘𝑤 𝐵) ↔ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)))
9 prodeq1 12239 . . 3 (𝑤 = (𝑦 ∪ {𝑧}) → ∏𝑘𝑤 (1 / 𝐵) = ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵))
10 prodeq1 12239 . . . 4 (𝑤 = (𝑦 ∪ {𝑧}) → ∏𝑘𝑤 𝐵 = ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵)
1110oveq2d 6066 . . 3 (𝑤 = (𝑦 ∪ {𝑧}) → (1 / ∏𝑘𝑤 𝐵) = (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵))
129, 11eqeq12d 2247 . 2 (𝑤 = (𝑦 ∪ {𝑧}) → (∏𝑘𝑤 (1 / 𝐵) = (1 / ∏𝑘𝑤 𝐵) ↔ ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵) = (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵)))
13 prodeq1 12239 . . 3 (𝑤 = 𝐴 → ∏𝑘𝑤 (1 / 𝐵) = ∏𝑘𝐴 (1 / 𝐵))
14 prodeq1 12239 . . . 4 (𝑤 = 𝐴 → ∏𝑘𝑤 𝐵 = ∏𝑘𝐴 𝐵)
1514oveq2d 6066 . . 3 (𝑤 = 𝐴 → (1 / ∏𝑘𝑤 𝐵) = (1 / ∏𝑘𝐴 𝐵))
1613, 15eqeq12d 2247 . 2 (𝑤 = 𝐴 → (∏𝑘𝑤 (1 / 𝐵) = (1 / ∏𝑘𝑤 𝐵) ↔ ∏𝑘𝐴 (1 / 𝐵) = (1 / ∏𝑘𝐴 𝐵)))
17 1div1e1 8978 . . . 4 (1 / 1) = 1
18 prod0 12271 . . . . 5 𝑘 ∈ ∅ 𝐵 = 1
1918oveq2i 6061 . . . 4 (1 / ∏𝑘 ∈ ∅ 𝐵) = (1 / 1)
20 prod0 12271 . . . 4 𝑘 ∈ ∅ (1 / 𝐵) = 1
2117, 19, 203eqtr4ri 2264 . . 3 𝑘 ∈ ∅ (1 / 𝐵) = (1 / ∏𝑘 ∈ ∅ 𝐵)
2221a1i 9 . 2 (𝜑 → ∏𝑘 ∈ ∅ (1 / 𝐵) = (1 / ∏𝑘 ∈ ∅ 𝐵))
23 simpr 110 . . . . . 6 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵))
2423oveq1d 6065 . . . . 5 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → (∏𝑘𝑦 (1 / 𝐵) · (1 / 𝑧 / 𝑘𝐵)) = ((1 / ∏𝑘𝑦 𝐵) · (1 / 𝑧 / 𝑘𝐵)))
25 1cnd 8290 . . . . . . 7 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → 1 ∈ ℂ)
26 simplr 529 . . . . . . . . 9 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → 𝑦 ∈ Fin)
27 simplll 535 . . . . . . . . . 10 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝜑)
28 simplrl 537 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝑦𝐴)
29 simpr 110 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝑘𝑦)
3028, 29sseldd 3239 . . . . . . . . . 10 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝑘𝐴)
31 fprodrec.ccl . . . . . . . . . 10 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
3227, 30, 31syl2anc 411 . . . . . . . . 9 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝐵 ∈ ℂ)
3326, 32fprodcl 12293 . . . . . . . 8 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∏𝑘𝑦 𝐵 ∈ ℂ)
3433adantr 276 . . . . . . 7 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ∏𝑘𝑦 𝐵 ∈ ℂ)
35 simprr 533 . . . . . . . . . 10 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → 𝑧 ∈ (𝐴𝑦))
3635eldifad 3222 . . . . . . . . 9 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → 𝑧𝐴)
3731ralrimiva 2615 . . . . . . . . . 10 (𝜑 → ∀𝑘𝐴 𝐵 ∈ ℂ)
3837ad2antrr 488 . . . . . . . . 9 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∀𝑘𝐴 𝐵 ∈ ℂ)
39 nfcsb1v 3171 . . . . . . . . . . 11 𝑘𝑧 / 𝑘𝐵
4039nfel1 2395 . . . . . . . . . 10 𝑘𝑧 / 𝑘𝐵 ∈ ℂ
41 csbeq1a 3147 . . . . . . . . . . 11 (𝑘 = 𝑧𝐵 = 𝑧 / 𝑘𝐵)
4241eleq1d 2301 . . . . . . . . . 10 (𝑘 = 𝑧 → (𝐵 ∈ ℂ ↔ 𝑧 / 𝑘𝐵 ∈ ℂ))
4340, 42rspc 2915 . . . . . . . . 9 (𝑧𝐴 → (∀𝑘𝐴 𝐵 ∈ ℂ → 𝑧 / 𝑘𝐵 ∈ ℂ))
4436, 38, 43sylc 62 . . . . . . . 8 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → 𝑧 / 𝑘𝐵 ∈ ℂ)
4544adantr 276 . . . . . . 7 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → 𝑧 / 𝑘𝐵 ∈ ℂ)
46 fprodrec.cap . . . . . . . . . 10 ((𝜑𝑘𝐴) → 𝐵 # 0)
4727, 30, 46syl2anc 411 . . . . . . . . 9 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → 𝐵 # 0)
4826, 32, 47fprodap0 12307 . . . . . . . 8 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∏𝑘𝑦 𝐵 # 0)
4948adantr 276 . . . . . . 7 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ∏𝑘𝑦 𝐵 # 0)
5046ralrimiva 2615 . . . . . . . . . 10 (𝜑 → ∀𝑘𝐴 𝐵 # 0)
5150ad2antrr 488 . . . . . . . . 9 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∀𝑘𝐴 𝐵 # 0)
52 nfcv 2384 . . . . . . . . . . 11 𝑘 #
53 nfcv 2384 . . . . . . . . . . 11 𝑘0
5439, 52, 53nfbr 4156 . . . . . . . . . 10 𝑘𝑧 / 𝑘𝐵 # 0
5541breq1d 4119 . . . . . . . . . 10 (𝑘 = 𝑧 → (𝐵 # 0 ↔ 𝑧 / 𝑘𝐵 # 0))
5654, 55rspc 2915 . . . . . . . . 9 (𝑧𝐴 → (∀𝑘𝐴 𝐵 # 0 → 𝑧 / 𝑘𝐵 # 0))
5736, 51, 56sylc 62 . . . . . . . 8 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → 𝑧 / 𝑘𝐵 # 0)
5857adantr 276 . . . . . . 7 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → 𝑧 / 𝑘𝐵 # 0)
5925, 34, 25, 45, 49, 58divmuldivapd 9106 . . . . . 6 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ((1 / ∏𝑘𝑦 𝐵) · (1 / 𝑧 / 𝑘𝐵)) = ((1 · 1) / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)))
60 1t1e1 9390 . . . . . . 7 (1 · 1) = 1
6160oveq1i 6060 . . . . . 6 ((1 · 1) / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)) = (1 / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵))
6259, 61eqtrdi 2281 . . . . 5 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ((1 / ∏𝑘𝑦 𝐵) · (1 / 𝑧 / 𝑘𝐵)) = (1 / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)))
6324, 62eqtrd 2265 . . . 4 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → (∏𝑘𝑦 (1 / 𝐵) · (1 / 𝑧 / 𝑘𝐵)) = (1 / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)))
64 nfcv 2384 . . . . . . 7 𝑘1
65 nfcv 2384 . . . . . . 7 𝑘 /
6664, 65, 39nfov 6080 . . . . . 6 𝑘(1 / 𝑧 / 𝑘𝐵)
6735eldifbd 3223 . . . . . 6 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ¬ 𝑧𝑦)
6832, 47recclapd 9055 . . . . . 6 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ 𝑘𝑦) → (1 / 𝐵) ∈ ℂ)
6944, 57recclapd 9055 . . . . . 6 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → (1 / 𝑧 / 𝑘𝐵) ∈ ℂ)
7041oveq2d 6066 . . . . . 6 (𝑘 = 𝑧 → (1 / 𝐵) = (1 / 𝑧 / 𝑘𝐵))
7166, 26, 35, 67, 68, 69, 70fprodunsn 12290 . . . . 5 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵) = (∏𝑘𝑦 (1 / 𝐵) · (1 / 𝑧 / 𝑘𝐵)))
7271adantr 276 . . . 4 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵) = (∏𝑘𝑦 (1 / 𝐵) · (1 / 𝑧 / 𝑘𝐵)))
7339, 26, 35, 67, 32, 44, 41fprodunsn 12290 . . . . . 6 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵 = (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵))
7473oveq2d 6066 . . . . 5 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵) = (1 / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)))
7574adantr 276 . . . 4 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵) = (1 / (∏𝑘𝑦 𝐵 · 𝑧 / 𝑘𝐵)))
7663, 72, 753eqtr4d 2275 . . 3 ((((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) ∧ ∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵)) → ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵) = (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵))
7776ex 115 . 2 (((𝜑𝑦 ∈ Fin) ∧ (𝑦𝐴𝑧 ∈ (𝐴𝑦))) → (∏𝑘𝑦 (1 / 𝐵) = (1 / ∏𝑘𝑦 𝐵) → ∏𝑘 ∈ (𝑦 ∪ {𝑧})(1 / 𝐵) = (1 / ∏𝑘 ∈ (𝑦 ∪ {𝑧})𝐵)))
78 fprodrec.a . 2 (𝜑𝐴 ∈ Fin)
794, 8, 12, 16, 22, 77, 78findcard2sd 7149 1 (𝜑 → ∏𝑘𝐴 (1 / 𝐵) = (1 / ∏𝑘𝐴 𝐵))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104   = wceq 1398  wcel 2203  wral 2520  csb 3138  cdif 3208  cun 3209  wss 3211  c0 3508  {csn 3689   class class class wbr 4109  (class class class)co 6050  Fincfn 6975  cc 8125  0cc0 8127  1c1 8128   · cmul 8132   # cap 8855   / cdiv 8946  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-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4225  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659  ax-iinf 4710  ax-cnex 8218  ax-resscn 8219  ax-1cn 8220  ax-1re 8221  ax-icn 8222  ax-addcl 8223  ax-addrcl 8224  ax-mulcl 8225  ax-mulrcl 8226  ax-addcom 8227  ax-mulcom 8228  ax-addass 8229  ax-mulass 8230  ax-distr 8231  ax-i2m1 8232  ax-0lt1 8233  ax-1rid 8234  ax-0id 8235  ax-rnegex 8236  ax-precex 8237  ax-cnre 8238  ax-pre-ltirr 8239  ax-pre-ltwlin 8240  ax-pre-lttrn 8241  ax-pre-apti 8242  ax-pre-ltadd 8243  ax-pre-mulgt0 8244  ax-pre-mulext 8245  ax-arch 8246  ax-caucvg 8247
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rmo 2528  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-if 3621  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-tr 4209  df-id 4414  df-po 4417  df-iso 4418  df-iord 4487  df-on 4489  df-ilim 4490  df-suc 4492  df-iom 4713  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-isom 5361  df-riota 6003  df-ov 6053  df-oprab 6054  df-mpo 6055  df-1st 6334  df-2nd 6335  df-recs 6536  df-irdg 6601  df-frec 6622  df-1o 6647  df-oadd 6651  df-er 6767  df-en 6976  df-dom 6977  df-fin 6978  df-pnf 8310  df-mnf 8311  df-xr 8312  df-ltxr 8313  df-le 8314  df-sub 8446  df-neg 8447  df-reap 8849  df-ap 8856  df-div 8947  df-inn 9238  df-2 9296  df-3 9297  df-4 9298  df-n0 9497  df-z 9578  df-uz 9854  df-q 9952  df-rp 9987  df-fz 10343  df-fzo 10477  df-seqfrec 10810  df-exp 10901  df-ihash 11139  df-cj 11527  df-re 11528  df-im 11529  df-rsqrt 11683  df-abs 11684  df-clim 11964  df-proddc 12237
This theorem is referenced by:  fproddivap  12316
  Copyright terms: Public domain W3C validator