Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mccl Structured version   Visualization version   GIF version

Theorem mccl 43829
Description: A multinomial coefficient, in its standard domain, is a positive integer. (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
mccl.kb 𝑘𝐵
mccl.a (𝜑𝐴 ∈ Fin)
mccl.b (𝜑𝐵 ∈ (ℕ0m 𝐴))
Assertion
Ref Expression
mccl (𝜑 → ((!‘Σ𝑘𝐴 (𝐵𝑘)) / ∏𝑘𝐴 (!‘(𝐵𝑘))) ∈ ℕ)
Distinct variable groups:   𝐴,𝑘   𝜑,𝑘
Allowed substitution hint:   𝐵(𝑘)

Proof of Theorem mccl
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sumeq1 15573 . . . . . . . 8 (𝑎 = ∅ → Σ𝑘𝑎 (𝑏𝑘) = Σ𝑘 ∈ ∅ (𝑏𝑘))
21fveq2d 6846 . . . . . . 7 (𝑎 = ∅ → (!‘Σ𝑘𝑎 (𝑏𝑘)) = (!‘Σ𝑘 ∈ ∅ (𝑏𝑘)))
3 prodeq1 15792 . . . . . . 7 (𝑎 = ∅ → ∏𝑘𝑎 (!‘(𝑏𝑘)) = ∏𝑘 ∈ ∅ (!‘(𝑏𝑘)))
42, 3oveq12d 7375 . . . . . 6 (𝑎 = ∅ → ((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) = ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))))
54eleq1d 2822 . . . . 5 (𝑎 = ∅ → (((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ))
65ralbidv 3174 . . . 4 (𝑎 = ∅ → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ))
7 oveq2 7365 . . . . 5 (𝑎 = ∅ → (ℕ0m 𝑎) = (ℕ0m ∅))
87raleqdv 3313 . . . 4 (𝑎 = ∅ → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m ∅)((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ))
96, 8bitrd 278 . . 3 (𝑎 = ∅ → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m ∅)((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ))
10 sumeq1 15573 . . . . . . . 8 (𝑎 = 𝑐 → Σ𝑘𝑎 (𝑏𝑘) = Σ𝑘𝑐 (𝑏𝑘))
1110fveq2d 6846 . . . . . . 7 (𝑎 = 𝑐 → (!‘Σ𝑘𝑎 (𝑏𝑘)) = (!‘Σ𝑘𝑐 (𝑏𝑘)))
12 prodeq1 15792 . . . . . . 7 (𝑎 = 𝑐 → ∏𝑘𝑎 (!‘(𝑏𝑘)) = ∏𝑘𝑐 (!‘(𝑏𝑘)))
1311, 12oveq12d 7375 . . . . . 6 (𝑎 = 𝑐 → ((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) = ((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))))
1413eleq1d 2822 . . . . 5 (𝑎 = 𝑐 → (((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ))
1514ralbidv 3174 . . . 4 (𝑎 = 𝑐 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ))
16 oveq2 7365 . . . . 5 (𝑎 = 𝑐 → (ℕ0m 𝑎) = (ℕ0m 𝑐))
1716raleqdv 3313 . . . 4 (𝑎 = 𝑐 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ))
1815, 17bitrd 278 . . 3 (𝑎 = 𝑐 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ))
19 sumeq1 15573 . . . . . . . 8 (𝑎 = (𝑐 ∪ {𝑑}) → Σ𝑘𝑎 (𝑏𝑘) = Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘))
2019fveq2d 6846 . . . . . . 7 (𝑎 = (𝑐 ∪ {𝑑}) → (!‘Σ𝑘𝑎 (𝑏𝑘)) = (!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)))
21 prodeq1 15792 . . . . . . 7 (𝑎 = (𝑐 ∪ {𝑑}) → ∏𝑘𝑎 (!‘(𝑏𝑘)) = ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘)))
2220, 21oveq12d 7375 . . . . . 6 (𝑎 = (𝑐 ∪ {𝑑}) → ((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) = ((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))))
2322eleq1d 2822 . . . . 5 (𝑎 = (𝑐 ∪ {𝑑}) → (((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
2423ralbidv 3174 . . . 4 (𝑎 = (𝑐 ∪ {𝑑}) → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
25 oveq2 7365 . . . . 5 (𝑎 = (𝑐 ∪ {𝑑}) → (ℕ0m 𝑎) = (ℕ0m (𝑐 ∪ {𝑑})))
2625raleqdv 3313 . . . 4 (𝑎 = (𝑐 ∪ {𝑑}) → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
2724, 26bitrd 278 . . 3 (𝑎 = (𝑐 ∪ {𝑑}) → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
28 sumeq1 15573 . . . . . . . 8 (𝑎 = 𝐴 → Σ𝑘𝑎 (𝑏𝑘) = Σ𝑘𝐴 (𝑏𝑘))
2928fveq2d 6846 . . . . . . 7 (𝑎 = 𝐴 → (!‘Σ𝑘𝑎 (𝑏𝑘)) = (!‘Σ𝑘𝐴 (𝑏𝑘)))
30 prodeq1 15792 . . . . . . 7 (𝑎 = 𝐴 → ∏𝑘𝑎 (!‘(𝑏𝑘)) = ∏𝑘𝐴 (!‘(𝑏𝑘)))
3129, 30oveq12d 7375 . . . . . 6 (𝑎 = 𝐴 → ((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) = ((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))))
3231eleq1d 2822 . . . . 5 (𝑎 = 𝐴 → (((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ))
3332ralbidv 3174 . . . 4 (𝑎 = 𝐴 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ))
34 oveq2 7365 . . . . 5 (𝑎 = 𝐴 → (ℕ0m 𝑎) = (ℕ0m 𝐴))
3534raleqdv 3313 . . . 4 (𝑎 = 𝐴 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝐴)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ))
3633, 35bitrd 278 . . 3 (𝑎 = 𝐴 → (∀𝑏 ∈ (ℕ0m 𝑎)((!‘Σ𝑘𝑎 (𝑏𝑘)) / ∏𝑘𝑎 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑏 ∈ (ℕ0m 𝐴)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ))
37 sum0 15606 . . . . . . . . . 10 Σ𝑘 ∈ ∅ (𝑏𝑘) = 0
3837fveq2i 6845 . . . . . . . . 9 (!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) = (!‘0)
39 fac0 14176 . . . . . . . . 9 (!‘0) = 1
4038, 39eqtri 2764 . . . . . . . 8 (!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) = 1
41 prod0 15826 . . . . . . . 8 𝑘 ∈ ∅ (!‘(𝑏𝑘)) = 1
4240, 41oveq12i 7369 . . . . . . 7 ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) = (1 / 1)
43 1div1e1 11845 . . . . . . 7 (1 / 1) = 1
4442, 43eqtri 2764 . . . . . 6 ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) = 1
45 1nn 12164 . . . . . 6 1 ∈ ℕ
4644, 45eqeltri 2834 . . . . 5 ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ
4746a1i 11 . . . 4 ((𝜑𝑏 ∈ (ℕ0m ∅)) → ((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ)
4847ralrimiva 3143 . . 3 (𝜑 → ∀𝑏 ∈ (ℕ0m ∅)((!‘Σ𝑘 ∈ ∅ (𝑏𝑘)) / ∏𝑘 ∈ ∅ (!‘(𝑏𝑘))) ∈ ℕ)
49 nfv 1917 . . . . . 6 𝑏(𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐)))
50 nfra1 3267 . . . . . 6 𝑏𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ
5149, 50nfan 1902 . . . . 5 𝑏((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ)
52 simpll 765 . . . . . . 7 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → (𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))))
53 fveq2 6842 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → (𝑏𝑘) = (𝑏𝑗))
5453cbvsumv 15581 . . . . . . . . . . . . . . 15 Σ𝑘𝑐 (𝑏𝑘) = Σ𝑗𝑐 (𝑏𝑗)
5554a1i 11 . . . . . . . . . . . . . 14 (𝑏 = 𝑒 → Σ𝑘𝑐 (𝑏𝑘) = Σ𝑗𝑐 (𝑏𝑗))
56 fveq1 6841 . . . . . . . . . . . . . . 15 (𝑏 = 𝑒 → (𝑏𝑗) = (𝑒𝑗))
5756sumeq2sdv 15589 . . . . . . . . . . . . . 14 (𝑏 = 𝑒 → Σ𝑗𝑐 (𝑏𝑗) = Σ𝑗𝑐 (𝑒𝑗))
5855, 57eqtrd 2776 . . . . . . . . . . . . 13 (𝑏 = 𝑒 → Σ𝑘𝑐 (𝑏𝑘) = Σ𝑗𝑐 (𝑒𝑗))
5958fveq2d 6846 . . . . . . . . . . . 12 (𝑏 = 𝑒 → (!‘Σ𝑘𝑐 (𝑏𝑘)) = (!‘Σ𝑗𝑐 (𝑒𝑗)))
60 2fveq3 6847 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (!‘(𝑏𝑘)) = (!‘(𝑏𝑗)))
6160cbvprodv 15799 . . . . . . . . . . . . . 14 𝑘𝑐 (!‘(𝑏𝑘)) = ∏𝑗𝑐 (!‘(𝑏𝑗))
6261a1i 11 . . . . . . . . . . . . 13 (𝑏 = 𝑒 → ∏𝑘𝑐 (!‘(𝑏𝑘)) = ∏𝑗𝑐 (!‘(𝑏𝑗)))
6356fveq2d 6846 . . . . . . . . . . . . . 14 (𝑏 = 𝑒 → (!‘(𝑏𝑗)) = (!‘(𝑒𝑗)))
6463prodeq2ad 43823 . . . . . . . . . . . . 13 (𝑏 = 𝑒 → ∏𝑗𝑐 (!‘(𝑏𝑗)) = ∏𝑗𝑐 (!‘(𝑒𝑗)))
6562, 64eqtrd 2776 . . . . . . . . . . . 12 (𝑏 = 𝑒 → ∏𝑘𝑐 (!‘(𝑏𝑘)) = ∏𝑗𝑐 (!‘(𝑒𝑗)))
6659, 65oveq12d 7375 . . . . . . . . . . 11 (𝑏 = 𝑒 → ((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) = ((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))))
6766eleq1d 2822 . . . . . . . . . 10 (𝑏 = 𝑒 → (((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ))
6867cbvralvw 3225 . . . . . . . . 9 (∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ ↔ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ)
6968biimpi 215 . . . . . . . 8 (∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ → ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ)
7069ad2antlr 725 . . . . . . 7 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ)
71 simpr 485 . . . . . . 7 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑})))
72 mccl.a . . . . . . . . 9 (𝜑𝐴 ∈ Fin)
7372ad3antrrr 728 . . . . . . . 8 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → 𝐴 ∈ Fin)
74 simprl 769 . . . . . . . . 9 ((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) → 𝑐𝐴)
7574ad2antrr 724 . . . . . . . 8 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → 𝑐𝐴)
76 simprr 771 . . . . . . . . 9 ((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) → 𝑑 ∈ (𝐴𝑐))
7776ad2antrr 724 . . . . . . . 8 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → 𝑑 ∈ (𝐴𝑐))
78 simpr 485 . . . . . . . 8 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑})))
79 fveq2 6842 . . . . . . . . . . . . . . 15 (𝑗 = 𝑘 → (𝑒𝑗) = (𝑒𝑘))
8079cbvsumv 15581 . . . . . . . . . . . . . 14 Σ𝑗𝑐 (𝑒𝑗) = Σ𝑘𝑐 (𝑒𝑘)
8180fveq2i 6845 . . . . . . . . . . . . 13 (!‘Σ𝑗𝑐 (𝑒𝑗)) = (!‘Σ𝑘𝑐 (𝑒𝑘))
82 2fveq3 6847 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (!‘(𝑒𝑗)) = (!‘(𝑒𝑘)))
8382cbvprodv 15799 . . . . . . . . . . . . 13 𝑗𝑐 (!‘(𝑒𝑗)) = ∏𝑘𝑐 (!‘(𝑒𝑘))
8481, 83oveq12i 7369 . . . . . . . . . . . 12 ((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) = ((!‘Σ𝑘𝑐 (𝑒𝑘)) / ∏𝑘𝑐 (!‘(𝑒𝑘)))
8584eleq1i 2828 . . . . . . . . . . 11 (((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ ↔ ((!‘Σ𝑘𝑐 (𝑒𝑘)) / ∏𝑘𝑐 (!‘(𝑒𝑘))) ∈ ℕ)
8685ralbii 3096 . . . . . . . . . 10 (∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ ↔ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑒𝑘)) / ∏𝑘𝑐 (!‘(𝑒𝑘))) ∈ ℕ)
8786biimpi 215 . . . . . . . . 9 (∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ → ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑒𝑘)) / ∏𝑘𝑐 (!‘(𝑒𝑘))) ∈ ℕ)
8887ad2antlr 725 . . . . . . . 8 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑒𝑘)) / ∏𝑘𝑐 (!‘(𝑒𝑘))) ∈ ℕ)
8973, 75, 77, 78, 88mccllem 43828 . . . . . . 7 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑒 ∈ (ℕ0m 𝑐)((!‘Σ𝑗𝑐 (𝑒𝑗)) / ∏𝑗𝑐 (!‘(𝑒𝑗))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → ((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ)
9052, 70, 71, 89syl21anc 836 . . . . . 6 ((((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) ∧ 𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))) → ((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ)
9190ex 413 . . . . 5 (((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) → (𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑})) → ((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
9251, 91ralrimi 3240 . . . 4 (((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) ∧ ∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ) → ∀𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ)
9392ex 413 . . 3 ((𝜑 ∧ (𝑐𝐴𝑑 ∈ (𝐴𝑐))) → (∀𝑏 ∈ (ℕ0m 𝑐)((!‘Σ𝑘𝑐 (𝑏𝑘)) / ∏𝑘𝑐 (!‘(𝑏𝑘))) ∈ ℕ → ∀𝑏 ∈ (ℕ0m (𝑐 ∪ {𝑑}))((!‘Σ𝑘 ∈ (𝑐 ∪ {𝑑})(𝑏𝑘)) / ∏𝑘 ∈ (𝑐 ∪ {𝑑})(!‘(𝑏𝑘))) ∈ ℕ))
949, 18, 27, 36, 48, 93, 72findcard2d 9110 . 2 (𝜑 → ∀𝑏 ∈ (ℕ0m 𝐴)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ)
95 mccl.b . 2 (𝜑𝐵 ∈ (ℕ0m 𝐴))
96 nfcv 2907 . . . . . . . . 9 𝑘𝑏
97 mccl.kb . . . . . . . . 9 𝑘𝐵
9896, 97nfeq 2920 . . . . . . . 8 𝑘 𝑏 = 𝐵
99 fveq1 6841 . . . . . . . . 9 (𝑏 = 𝐵 → (𝑏𝑘) = (𝐵𝑘))
10099a1d 25 . . . . . . . 8 (𝑏 = 𝐵 → (𝑘𝐴 → (𝑏𝑘) = (𝐵𝑘)))
10198, 100ralrimi 3240 . . . . . . 7 (𝑏 = 𝐵 → ∀𝑘𝐴 (𝑏𝑘) = (𝐵𝑘))
102101sumeq2d 15587 . . . . . 6 (𝑏 = 𝐵 → Σ𝑘𝐴 (𝑏𝑘) = Σ𝑘𝐴 (𝐵𝑘))
103102fveq2d 6846 . . . . 5 (𝑏 = 𝐵 → (!‘Σ𝑘𝐴 (𝑏𝑘)) = (!‘Σ𝑘𝐴 (𝐵𝑘)))
10499fveq2d 6846 . . . . . . . 8 (𝑏 = 𝐵 → (!‘(𝑏𝑘)) = (!‘(𝐵𝑘)))
105104a1d 25 . . . . . . 7 (𝑏 = 𝐵 → (𝑘𝐴 → (!‘(𝑏𝑘)) = (!‘(𝐵𝑘))))
10698, 105ralrimi 3240 . . . . . 6 (𝑏 = 𝐵 → ∀𝑘𝐴 (!‘(𝑏𝑘)) = (!‘(𝐵𝑘)))
107106prodeq2d 15805 . . . . 5 (𝑏 = 𝐵 → ∏𝑘𝐴 (!‘(𝑏𝑘)) = ∏𝑘𝐴 (!‘(𝐵𝑘)))
108103, 107oveq12d 7375 . . . 4 (𝑏 = 𝐵 → ((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) = ((!‘Σ𝑘𝐴 (𝐵𝑘)) / ∏𝑘𝐴 (!‘(𝐵𝑘))))
109108eleq1d 2822 . . 3 (𝑏 = 𝐵 → (((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ ↔ ((!‘Σ𝑘𝐴 (𝐵𝑘)) / ∏𝑘𝐴 (!‘(𝐵𝑘))) ∈ ℕ))
110109rspccva 3580 . 2 ((∀𝑏 ∈ (ℕ0m 𝐴)((!‘Σ𝑘𝐴 (𝑏𝑘)) / ∏𝑘𝐴 (!‘(𝑏𝑘))) ∈ ℕ ∧ 𝐵 ∈ (ℕ0m 𝐴)) → ((!‘Σ𝑘𝐴 (𝐵𝑘)) / ∏𝑘𝐴 (!‘(𝐵𝑘))) ∈ ℕ)
11194, 95, 110syl2anc 584 1 (𝜑 → ((!‘Σ𝑘𝐴 (𝐵𝑘)) / ∏𝑘𝐴 (!‘(𝐵𝑘))) ∈ ℕ)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1541  wcel 2106  wnfc 2887  wral 3064  cdif 3907  cun 3908  wss 3910  c0 4282  {csn 4586  cfv 6496  (class class class)co 7357  m cmap 8765  Fincfn 8883  0cc0 11051  1c1 11052   / cdiv 11812  cn 12153  0cn0 12413  !cfa 14173  Σcsu 15570  cprod 15788
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-inf2 9577  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9378  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-n0 12414  df-z 12500  df-uz 12764  df-rp 12916  df-fz 13425  df-fzo 13568  df-seq 13907  df-exp 13968  df-fac 14174  df-bc 14203  df-hash 14231  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-clim 15370  df-sum 15571  df-prod 15789
This theorem is referenced by:  etransclem24  44489  etransclem25  44490  etransclem26  44491  etransclem28  44493  etransclem35  44500  etransclem37  44502
  Copyright terms: Public domain W3C validator