dvnprodlem2 - Mathbox for Glauco Siliprandi

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

Theorem dvnprodlem2 45948

Description: Induction step for dvnprodlem2 45948. (Contributed by Glauco Siliprandi, 5-Apr-2020.)

**Hypotheses**
Ref	Expression
dvnprodlem2.s	⊢ (𝜑 → 𝑆 ∈ {ℝ, ℂ})
dvnprodlem2.x	⊢ (𝜑 → 𝑋 ∈ ((TopOpen‘ℂ_fld) ↾_t 𝑆))
dvnprodlem2.t	⊢ (𝜑 → 𝑇 ∈ Fin)
dvnprodlem2.h	⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡):𝑋⟶ℂ)
dvnprodlem2.n	⊢ (𝜑 → 𝑁 ∈ ℕ₀)
dvnprodlem2.dvnh	⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ)
dvnprodlem2.c	⊢ 𝐶 = (𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}))
dvnprodlem2.r	⊢ (𝜑 → 𝑅 ⊆ 𝑇)
dvnprodlem2.z	⊢ (𝜑 → 𝑍 ∈ (𝑇 ∖ 𝑅))
dvnprodlem2.ind	⊢ (𝜑 → ∀𝑘 ∈ (0...𝑁)((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
dvnprodlem2.j	⊢ (𝜑 → 𝐽 ∈ (0...𝑁))
dvnprodlem2.d	⊢ 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)

**Assertion**
Ref	Expression
dvnprodlem2	⊢ (𝜑 → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥)))‘𝐽) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))

Distinct variable groups: 𝐶,𝑐,𝑘,𝑡 𝐷,𝑐,𝑡 𝐻,𝑐,𝑗,𝑘,𝑡 𝑥,𝐻,𝑐,𝑘,𝑡 𝐽,𝑐,𝑗,𝑘,𝑡 𝑛,𝐽,𝑠,𝑐,𝑘,𝑡 𝑥,𝐽 𝑗,𝑁,𝑡 𝑅,𝑐,𝑘,𝑛,𝑠,𝑡 𝑥,𝑅 𝑆,𝑐,𝑗,𝑘,𝑡 𝑥,𝑆 𝑇,𝑗,𝑡 𝑇,𝑠 𝑋,𝑐,𝑗,𝑘,𝑡 𝑥,𝑋 𝑍,𝑐,𝑗,𝑘,𝑡 𝑛,𝑍,𝑠 𝑥,𝑍 𝜑,𝑐,𝑗,𝑘,𝑡 𝜑,𝑛,𝑠 𝜑,𝑥 Allowed substitution hints: 𝐶(𝑥,𝑗,𝑛,𝑠) 𝐷(𝑥,𝑗,𝑘,𝑛,𝑠) 𝑅(𝑗) 𝑆(𝑛,𝑠) 𝑇(𝑥,𝑘,𝑛,𝑐) 𝐻(𝑛,𝑠) 𝑁(𝑥,𝑘,𝑛,𝑠,𝑐) 𝑋(𝑛,𝑠)

Proof of Theorem dvnprodlem2 Dummy variables 𝑝 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfv 1914	. . . . . 6 ⊢ Ⅎ𝑡(𝜑 ∧ 𝑥 ∈ 𝑋)
2		nfcv 2891	. . . . . 6 ⊢ Ⅎ𝑡((𝐻‘𝑍)‘𝑥)
3		dvnprodlem2.t	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ Fin)
4		dvnprodlem2.r	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ⊆ 𝑇)
5		ssfi 9087	. . . . . . . 8 ⊢ ((𝑇 ∈ Fin ∧ 𝑅 ⊆ 𝑇) → 𝑅 ∈ Fin)
6	3, 4, 5	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ Fin)
7	6	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → 𝑅 ∈ Fin)
8		dvnprodlem2.z	. . . . . . 7 ⊢ (𝜑 → 𝑍 ∈ (𝑇 ∖ 𝑅))
9	8	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → 𝑍 ∈ (𝑇 ∖ 𝑅))
10	8	eldifbd 3916	. . . . . . 7 ⊢ (𝜑 → ¬ 𝑍 ∈ 𝑅)
11	10	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ¬ 𝑍 ∈ 𝑅)
12		simpl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑅) → 𝜑)
13	4	sselda 3935	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑇)
14		dvnprodlem2.h	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡):𝑋⟶ℂ)
15	12, 13, 14	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑅) → (𝐻‘𝑡):𝑋⟶ℂ)
16	15	adantlr 715	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑡 ∈ 𝑅) → (𝐻‘𝑡):𝑋⟶ℂ)
17		simplr 768	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑡 ∈ 𝑅) → 𝑥 ∈ 𝑋)
18	16, 17	ffvelcdmd 7019	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑡 ∈ 𝑅) → ((𝐻‘𝑡)‘𝑥) ∈ ℂ)
19		fveq2 6822	. . . . . . 7 ⊢ (𝑡 = 𝑍 → (𝐻‘𝑡) = (𝐻‘𝑍))
20	19	fveq1d 6824	. . . . . 6 ⊢ (𝑡 = 𝑍 → ((𝐻‘𝑡)‘𝑥) = ((𝐻‘𝑍)‘𝑥))
21		id 22	. . . . . . . . 9 ⊢ (𝜑 → 𝜑)
22		eldifi 4082	. . . . . . . . . 10 ⊢ (𝑍 ∈ (𝑇 ∖ 𝑅) → 𝑍 ∈ 𝑇)
23	8, 22	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑍 ∈ 𝑇)
24		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇) → 𝑍 ∈ 𝑇)
25		id 22	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇) → (𝜑 ∧ 𝑍 ∈ 𝑇))
26		eleq1 2816	. . . . . . . . . . . . 13 ⊢ (𝑡 = 𝑍 → (𝑡 ∈ 𝑇 ↔ 𝑍 ∈ 𝑇))
27	26	anbi2d 630	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑍 → ((𝜑 ∧ 𝑡 ∈ 𝑇) ↔ (𝜑 ∧ 𝑍 ∈ 𝑇)))
28	19	feq1d 6634	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑍 → ((𝐻‘𝑡):𝑋⟶ℂ ↔ (𝐻‘𝑍):𝑋⟶ℂ))
29	27, 28	imbi12d 344	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑍 → (((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑍 ∈ 𝑇) → (𝐻‘𝑍):𝑋⟶ℂ)))
30	29, 14	vtoclg 3509	. . . . . . . . . 10 ⊢ (𝑍 ∈ 𝑇 → ((𝜑 ∧ 𝑍 ∈ 𝑇) → (𝐻‘𝑍):𝑋⟶ℂ))
31	24, 25, 30	sylc 65	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇) → (𝐻‘𝑍):𝑋⟶ℂ)
32	21, 23, 31	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐻‘𝑍):𝑋⟶ℂ)
33	32	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (𝐻‘𝑍):𝑋⟶ℂ)
34		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → 𝑥 ∈ 𝑋)
35	33, 34	ffvelcdmd 7019	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ((𝐻‘𝑍)‘𝑥) ∈ ℂ)
36	1, 2, 7, 9, 11, 18, 20, 35	fprodsplitsn 15896	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥) = (∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) · ((𝐻‘𝑍)‘𝑥)))
37	36	mpteq2dva 5185	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥)) = (𝑥 ∈ 𝑋 ↦ (∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) · ((𝐻‘𝑍)‘𝑥))))
38	37	oveq2d 7365	. . 3 ⊢ (𝜑 → (𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥))) = (𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ (∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) · ((𝐻‘𝑍)‘𝑥)))))
39	38	fveq1d 6824	. 2 ⊢ (𝜑 → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥)))‘𝐽) = ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ (∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) · ((𝐻‘𝑍)‘𝑥))))‘𝐽))
40		dvnprodlem2.s	. . 3 ⊢ (𝜑 → 𝑆 ∈ {ℝ, ℂ})
41		dvnprodlem2.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ ((TopOpen‘ℂ_fld) ↾_t 𝑆))
42	1, 7, 18	fprodclf 15899	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) ∈ ℂ)
43		dvnprodlem2.j	. . . 4 ⊢ (𝜑 → 𝐽 ∈ (0...𝑁))
44		elfznn0 13523	. . . 4 ⊢ (𝐽 ∈ (0...𝑁) → 𝐽 ∈ ℕ₀)
45	43, 44	syl 17	. . 3 ⊢ (𝜑 → 𝐽 ∈ ℕ₀)
46		eqid 2729	. . 3 ⊢ (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)) = (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥))
47		eqid 2729	. . 3 ⊢ (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)) = (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥))
48		dvnprodlem2.c	. . . . . . . . . 10 ⊢ 𝐶 = (𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}))
49		oveq2 7357	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑅 → ((0...𝑛) ↑_m 𝑠) = ((0...𝑛) ↑_m 𝑅))
50		rabeq 3409	. . . . . . . . . . . . 13 ⊢ (((0...𝑛) ↑_m 𝑠) = ((0...𝑛) ↑_m 𝑅) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
51	49, 50	syl 17	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
52		sumeq1 15596	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑅 → Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = Σ𝑡 ∈ 𝑅 (𝑐‘𝑡))
53	52	eqeq1d 2731	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑅 → (Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛))
54	53	rabbidv 3402	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
55	51, 54	eqtrd 2764	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
56	55	mpteq2dv 5186	. . . . . . . . . 10 ⊢ (𝑠 = 𝑅 → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
57		ssexg 5262	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ⊆ 𝑇 ∧ 𝑇 ∈ Fin) → 𝑅 ∈ V)
58	4, 3, 57	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ V)
59		elpwg 4554	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ V → (𝑅 ∈ 𝒫 𝑇 ↔ 𝑅 ⊆ 𝑇))
60	58, 59	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑅 ∈ 𝒫 𝑇 ↔ 𝑅 ⊆ 𝑇))
61	4, 60	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ 𝒫 𝑇)
62	61	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑅 ∈ 𝒫 𝑇)
63		nn0ex 12390	. . . . . . . . . . . 12 ⊢ ℕ₀ ∈ V
64	63	mptex 7159	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) ∈ V
65	64	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) ∈ V)
66	48, 56, 62, 65	fvmptd3 6953	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐶‘𝑅) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
67		oveq2 7357	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (0...𝑛) = (0...𝑘))
68	67	oveq1d 7364	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → ((0...𝑛) ↑_m 𝑅) = ((0...𝑘) ↑_m 𝑅))
69		rabeq 3409	. . . . . . . . . . . 12 ⊢ (((0...𝑛) ↑_m 𝑅) = ((0...𝑘) ↑_m 𝑅) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
70	68, 69	syl 17	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
71		eqeq2 2741	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → (Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘))
72	71	rabbidv 3402	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
73	70, 72	eqtrd 2764	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
74	73	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑛 = 𝑘) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
75		elfznn0 13523	. . . . . . . . . 10 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℕ₀)
76	75	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℕ₀)
77		fzfid 13880	. . . . . . . . . . . 12 ⊢ (𝜑 → (0...𝑘) ∈ Fin)
78		mapfi 9238	. . . . . . . . . . . 12 ⊢ (((0...𝑘) ∈ Fin ∧ 𝑅 ∈ Fin) → ((0...𝑘) ↑_m 𝑅) ∈ Fin)
79	77, 6, 78	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → ((0...𝑘) ↑_m 𝑅) ∈ Fin)
80	79	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((0...𝑘) ↑_m 𝑅) ∈ Fin)
81		ssrab2 4031	. . . . . . . . . . 11 ⊢ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ⊆ ((0...𝑘) ↑_m 𝑅)
82	81	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ⊆ ((0...𝑘) ↑_m 𝑅))
83	80, 82	ssexd 5263	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ V)
84	66, 74, 76, 83	fvmptd 6937	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) = {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
85		ssfi 9087	. . . . . . . . . 10 ⊢ ((((0...𝑘) ↑_m 𝑅) ∈ Fin ∧ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ⊆ ((0...𝑘) ↑_m 𝑅)) → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ Fin)
86	79, 81, 85	sylancl 586	. . . . . . . . 9 ⊢ (𝜑 → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ Fin)
87	86	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ Fin)
88	84, 87	eqeltrd 2828	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) ∈ Fin)
89	88	adantr 480	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) → ((𝐶‘𝑅)‘𝑘) ∈ Fin)
90	75	faccld 14191	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...𝐽) → (!‘𝑘) ∈ ℕ)
91	90	nncnd 12144	. . . . . . . . . 10 ⊢ (𝑘 ∈ (0...𝐽) → (!‘𝑘) ∈ ℂ)
92	91	ad2antlr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (!‘𝑘) ∈ ℂ)
93	6	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑅 ∈ Fin)
94	93	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑅 ∈ Fin)
95		elfznn0 13523	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ (0...𝑘) → 𝑧 ∈ ℕ₀)
96	95	ssriv 3939	. . . . . . . . . . . . . 14 ⊢ (0...𝑘) ⊆ ℕ₀
97	96	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (0...𝑘) ⊆ ℕ₀)
98		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑐 ∈ ((𝐶‘𝑅)‘𝑘))
99	84	eleq2d 2814	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝑐 ∈ ((𝐶‘𝑅)‘𝑘) ↔ 𝑐 ∈ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘}))
100	99	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (𝑐 ∈ ((𝐶‘𝑅)‘𝑘) ↔ 𝑐 ∈ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘}))
101	98, 100	mpbid 232	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑐 ∈ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
102	81	sseli 3931	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 ∈ {𝑐 ∈ ((0...𝑘) ↑_m 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} → 𝑐 ∈ ((0...𝑘) ↑_m 𝑅))
103	101, 102	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑐 ∈ ((0...𝑘) ↑_m 𝑅))
104		elmapi 8776	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ ((0...𝑘) ↑_m 𝑅) → 𝑐:𝑅⟶(0...𝑘))
105	103, 104	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑐:𝑅⟶(0...𝑘))
106	105	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → 𝑐:𝑅⟶(0...𝑘))
107		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑅)
108	106, 107	ffvelcdmd 7019	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝑘))
109	97, 108	sseldd 3936	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ ℕ₀)
110	109	faccld 14191	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (!‘(𝑐‘𝑡)) ∈ ℕ)
111	110	nncnd 12144	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (!‘(𝑐‘𝑡)) ∈ ℂ)
112	94, 111	fprodcl 15859	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ∈ ℂ)
113	110	nnne0d 12178	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (!‘(𝑐‘𝑡)) ≠ 0)
114	94, 111, 113	fprodn0 15886	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ≠ 0)
115	92, 112, 114	divcld 11900	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) ∈ ℂ)
116	115	adantlr 715	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) ∈ ℂ)
117	94	adantlr 715	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → 𝑅 ∈ Fin)
118	21	ad4antr 732	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → 𝜑)
119	118, 13	sylancom 588	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑇)
120		elfzuz3 13424	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (0...𝐽) → 𝐽 ∈ (ℤ_≥‘𝑘))
121		fzss2 13467	. . . . . . . . . . . . . . . 16 ⊢ (𝐽 ∈ (ℤ_≥‘𝑘) → (0...𝑘) ⊆ (0...𝐽))
122	120, 121	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → (0...𝑘) ⊆ (0...𝐽))
123	122	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (0...𝑘) ⊆ (0...𝐽))
124	45	nn0zd 12497	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℤ)
125		dvnprodlem2.n	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
126	125	nn0zd 12497	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ ℤ)
127		elfzle2 13431	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 ∈ (0...𝑁) → 𝐽 ≤ 𝑁)
128	43, 127	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ≤ 𝑁)
129	124, 126, 128	3jca 1128	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐽 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐽 ≤ 𝑁))
130		eluz2 12741	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ (ℤ_≥‘𝐽) ↔ (𝐽 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐽 ≤ 𝑁))
131	129, 130	sylibr 234	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝐽))
132		fzss2 13467	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘𝐽) → (0...𝐽) ⊆ (0...𝑁))
133	131, 132	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0...𝐽) ⊆ (0...𝑁))
134	133	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (0...𝐽) ⊆ (0...𝑁))
135	123, 134	sstrd 3946	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (0...𝑘) ⊆ (0...𝑁))
136	135	ad2antrr 726	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (0...𝑘) ⊆ (0...𝑁))
137	136, 108	sseldd 3936	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝑁))
138	137	adantllr 719	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝑁))
139		fvex 6835	. . . . . . . . . . 11 ⊢ (𝑐‘𝑡) ∈ V
140		eleq1 2816	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝑐‘𝑡) → (𝑗 ∈ (0...𝑁) ↔ (𝑐‘𝑡) ∈ (0...𝑁)))
141	140	3anbi3d 1444	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝑐‘𝑡) → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑡 ∈ 𝑇 ∧ (𝑐‘𝑡) ∈ (0...𝑁))))
142		fveq2 6822	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝑐‘𝑡) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)))
143	142	feq1d 6634	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝑐‘𝑡) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ))
144	141, 143	imbi12d 344	. . . . . . . . . . 11 ⊢ (𝑗 = (𝑐‘𝑡) → (((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ (𝑐‘𝑡) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)))
145		dvnprodlem2.dvnh	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ)
146	139, 144, 145	vtocl 3513	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ (𝑐‘𝑡) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
147	118, 119, 138, 146	syl3anc 1373	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
148		simpllr 775	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → 𝑥 ∈ 𝑋)
149	147, 148	ffvelcdmd 7019	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ∧ 𝑡 ∈ 𝑅) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
150	117, 149	fprodcl 15859	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
151	116, 150	mulcld 11135	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ)
152	89, 151	fsumcl 15640	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) → Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ)
153	152	fmpttd 7049	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))):𝑋⟶ℂ)
154		dvnprodlem2.ind	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ (0...𝑁)((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
155	154	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ∀𝑘 ∈ (0...𝑁)((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
156		0zd 12483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 0 ∈ ℤ)
157	126	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑁 ∈ ℤ)
158		elfzelz 13427	. . . . . . . 8 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℤ)
159	158	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℤ)
160		elfzle1 13430	. . . . . . . 8 ⊢ (𝑘 ∈ (0...𝐽) → 0 ≤ 𝑘)
161	160	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 0 ≤ 𝑘)
162	159	zred 12580	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℝ)
163	45	nn0red 12446	. . . . . . . . 9 ⊢ (𝜑 → 𝐽 ∈ ℝ)
164	163	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝐽 ∈ ℝ)
165	157	zred 12580	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑁 ∈ ℝ)
166		elfzle2 13431	. . . . . . . . 9 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ≤ 𝐽)
167	166	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ≤ 𝐽)
168	128	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝐽 ≤ 𝑁)
169	162, 164, 165, 167, 168	letrd 11273	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ≤ 𝑁)
170	156, 157, 159, 161, 169	elfzd 13418	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ (0...𝑁))
171		rspa 3218	. . . . . 6 ⊢ ((∀𝑘 ∈ (0...𝑁)((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))) ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
172	155, 170, 171	syl2anc 584	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
173	172	feq1d 6634	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘):𝑋⟶ℂ ↔ (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))):𝑋⟶ℂ))
174	153, 173	mpbird 257	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘):𝑋⟶ℂ)
175	23	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑍 ∈ 𝑇)
176		simpl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝜑)
177	176, 175, 170	3jca 1128	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)))
178	26	3anbi2d 1443	. . . . . . 7 ⊢ (𝑡 = 𝑍 → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁))))
179	19	oveq2d 7365	. . . . . . . . 9 ⊢ (𝑡 = 𝑍 → (𝑆 D^𝑛 (𝐻‘𝑡)) = (𝑆 D^𝑛 (𝐻‘𝑍)))
180	179	fveq1d 6824	. . . . . . . 8 ⊢ (𝑡 = 𝑍 → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘))
181	180	feq1d 6634	. . . . . . 7 ⊢ (𝑡 = 𝑍 → (((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ))
182	178, 181	imbi12d 344	. . . . . 6 ⊢ (𝑡 = 𝑍 → (((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ)))
183		eleq1 2816	. . . . . . . . 9 ⊢ (𝑗 = 𝑘 → (𝑗 ∈ (0...𝑁) ↔ 𝑘 ∈ (0...𝑁)))
184	183	3anbi3d 1444	. . . . . . . 8 ⊢ (𝑗 = 𝑘 → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁))))
185		fveq2 6822	. . . . . . . . 9 ⊢ (𝑗 = 𝑘 → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘))
186	185	feq1d 6634	. . . . . . . 8 ⊢ (𝑗 = 𝑘 → (((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘):𝑋⟶ℂ))
187	184, 186	imbi12d 344	. . . . . . 7 ⊢ (𝑗 = 𝑘 → (((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘):𝑋⟶ℂ)))
188	187, 145	chvarvv 1989	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑘):𝑋⟶ℂ)
189	182, 188	vtoclg 3509	. . . . 5 ⊢ (𝑍 ∈ 𝑇 → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ))
190	175, 177, 189	sylc 65	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ)
191	32	feqmptd 6891	. . . . . . . . 9 ⊢ (𝜑 → (𝐻‘𝑍) = (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))
192	191	eqcomd 2735	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)) = (𝐻‘𝑍))
193	192	oveq2d 7365	. . . . . . 7 ⊢ (𝜑 → (𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥))) = (𝑆 D^𝑛 (𝐻‘𝑍)))
194	193	fveq1d 6824	. . . . . 6 ⊢ (𝜑 → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘))
195	194	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘))
196	195	feq1d 6634	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ))
197	190, 196	mpbird 257	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘):𝑋⟶ℂ)
198		fveq2 6822	. . . . . . . 8 ⊢ (𝑦 = 𝑥 → ((𝐻‘𝑡)‘𝑦) = ((𝐻‘𝑡)‘𝑥))
199	198	prodeq2ad 45593	. . . . . . 7 ⊢ (𝑦 = 𝑥 → ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦) = ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥))
200	199	cbvmptv 5196	. . . . . 6 ⊢ (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)) = (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥))
201	200	oveq2i 7360	. . . . 5 ⊢ (𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦))) = (𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))
202	201	fveq1i 6823	. . . 4 ⊢ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘) = ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘)
203	202	mpteq2i 5188	. . 3 ⊢ (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘)) = (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘))
204		fveq2 6822	. . . . . . 7 ⊢ (𝑦 = 𝑥 → ((𝐻‘𝑍)‘𝑦) = ((𝐻‘𝑍)‘𝑥))
205	204	cbvmptv 5196	. . . . . 6 ⊢ (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)) = (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥))
206	205	oveq2i 7360	. . . . 5 ⊢ (𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦))) = (𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))
207	206	fveq1i 6823	. . . 4 ⊢ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘) = ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘)
208	207	mpteq2i 5188	. . 3 ⊢ (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘)) = (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑥)))‘𝑘))
209	40, 41, 42, 35, 45, 46, 47, 174, 197, 203, 208	dvnmul 45944	. 2 ⊢ (𝜑 → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ (∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥) · ((𝐻‘𝑍)‘𝑥))))‘𝐽) = (𝑥 ∈ 𝑋 ↦ Σ𝑘 ∈ (0...𝐽)((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥)))))
210	202	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘) = ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘))
211	154	r19.21bi 3221	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
212	176, 170, 211	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑥)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
213	210, 212	eqtrd 2764	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
214	213	mpteq2dva 5185	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘)) = (𝑘 ∈ (0...𝐽) ↦ (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))))
215		mptexg 7157	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ ((TopOpen‘ℂ_fld) ↾_t 𝑆) → (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))) ∈ V)
216	41, 215	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))) ∈ V)
217	216	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))) ∈ V)
218	214, 217	fvmpt2d 6943	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
219	218	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
220	219	fveq1d 6824	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) = ((𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))‘𝑥))
221	34	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → 𝑥 ∈ 𝑋)
222	152	an32s 652	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ)
223		eqid 2729	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
224	223	fvmpt2 6941	. . . . . . . . . 10 ⊢ ((𝑥 ∈ 𝑋 ∧ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ) → ((𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))‘𝑥) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
225	221, 222, 224	syl2anc 584	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))‘𝑥) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
226	220, 225	eqtrd 2764	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
227		fveq2 6822	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘) = ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑗))
228	227	cbvmptv 5196	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘)) = (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑗))
229	228	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘)) = (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑗)))
230	206, 193	eqtrid 2776	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦))) = (𝑆 D^𝑛 (𝐻‘𝑍)))
231	230	fveq1d 6824	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗))
232	231	mpteq2dv 5186	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑗)) = (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗)))
233	229, 232	eqtrd 2764	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘)) = (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗)))
234	233	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘)) = (𝑗 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗)))
235		fveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝐽 − 𝑘) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)))
236	235	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑗 = (𝐽 − 𝑘)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)))
237		0zd 12483	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → 0 ∈ ℤ)
238		elfzel2 13425	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → 𝐽 ∈ ℤ)
239	238, 158	zsubcld 12585	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → (𝐽 − 𝑘) ∈ ℤ)
240	237, 238, 239	3jca 1128	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...𝐽) → (0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − 𝑘) ∈ ℤ))
241	238	zred 12580	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (0...𝐽) → 𝐽 ∈ ℝ)
242	75	nn0red 12446	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℝ)
243	241, 242	subge0d 11710	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → (0 ≤ (𝐽 − 𝑘) ↔ 𝑘 ≤ 𝐽))
244	166, 243	mpbird 257	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...𝐽) → 0 ≤ (𝐽 − 𝑘))
245	241, 242	subge02d 11712	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (0...𝐽) → (0 ≤ 𝑘 ↔ (𝐽 − 𝑘) ≤ 𝐽))
246	160, 245	mpbid 232	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...𝐽) → (𝐽 − 𝑘) ≤ 𝐽)
247	240, 244, 246	jca32 515	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (0...𝐽) → ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − 𝑘) ∈ ℤ) ∧ (0 ≤ (𝐽 − 𝑘) ∧ (𝐽 − 𝑘) ≤ 𝐽)))
248	247	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − 𝑘) ∈ ℤ) ∧ (0 ≤ (𝐽 − 𝑘) ∧ (𝐽 − 𝑘) ≤ 𝐽)))
249		elfz2 13417	. . . . . . . . . . . 12 ⊢ ((𝐽 − 𝑘) ∈ (0...𝐽) ↔ ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − 𝑘) ∈ ℤ) ∧ (0 ≤ (𝐽 − 𝑘) ∧ (𝐽 − 𝑘) ≤ 𝐽)))
250	248, 249	sylibr 234	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐽 − 𝑘) ∈ (0...𝐽))
251		fvex 6835	. . . . . . . . . . . 12 ⊢ ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)) ∈ V
252	251	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)) ∈ V)
253	234, 236, 250, 252	fvmptd 6937	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘)) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)))
254	253	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘)) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)))
255	254	fveq1d 6824	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))
256	226, 255	oveq12d 7367	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥)) = (Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)))
257	256	oveq2d 7365	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥))) = ((𝐽C𝑘) · (Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
258	88	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) ∈ Fin)
259		ovex 7382	. . . . . . . . . . . 12 ⊢ (𝐽 − 𝑘) ∈ V
260		eleq1 2816	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝐽 − 𝑘) → (𝑗 ∈ (0...𝐽) ↔ (𝐽 − 𝑘) ∈ (0...𝐽)))
261	260	anbi2d 630	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝐽 − 𝑘) → ((𝜑 ∧ 𝑗 ∈ (0...𝐽)) ↔ (𝜑 ∧ (𝐽 − 𝑘) ∈ (0...𝐽))))
262	235	feq1d 6634	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝐽 − 𝑘) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)):𝑋⟶ℂ))
263	261, 262	imbi12d 344	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝐽 − 𝑘) → (((𝜑 ∧ 𝑗 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ (𝐽 − 𝑘) ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)):𝑋⟶ℂ)))
264		eleq1 2816	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → (𝑘 ∈ (0...𝐽) ↔ 𝑗 ∈ (0...𝐽)))
265	264	anbi2d 630	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑗 → ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ↔ (𝜑 ∧ 𝑗 ∈ (0...𝐽))))
266		fveq2 6822	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗))
267	266	feq1d 6634	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑗 → (((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ))
268	265, 267	imbi12d 344	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑗 → (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑘):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑗 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ)))
269	268, 190	chvarvv 1989	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ)
270	259, 263, 269	vtocl 3513	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐽 − 𝑘) ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)):𝑋⟶ℂ)
271	176, 250, 270	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)):𝑋⟶ℂ)
272	271	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)):𝑋⟶ℂ)
273	272, 221	ffvelcdmd 7019	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥) ∈ ℂ)
274		anass 468	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ↔ (𝜑 ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑥 ∈ 𝑋)))
275		ancom 460	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑥 ∈ 𝑋) ↔ (𝑥 ∈ 𝑋 ∧ 𝑘 ∈ (0...𝐽)))
276	275	anbi2i 623	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑥 ∈ 𝑋)) ↔ (𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑘 ∈ (0...𝐽))))
277		anass 468	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ↔ (𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑘 ∈ (0...𝐽))))
278	277	bicomi 224	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑘 ∈ (0...𝐽))) ↔ ((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)))
279	276, 278	bitri 275	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑥 ∈ 𝑋)) ↔ ((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)))
280	274, 279	bitri 275	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ↔ ((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)))
281	280	anbi1i 624	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) ↔ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)))
282	281	imbi1i 349	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ) ↔ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ))
283	151, 282	mpbi 230	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) ∈ ℂ)
284	258, 273, 283	fsummulc1 15692	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)))
285	284	oveq2d 7365	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝐽C𝑘) · (Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)(((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))) = ((𝐽C𝑘) · Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
286	176, 45	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝐽 ∈ ℕ₀)
287	286, 159	bccld 45317	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐽C𝑘) ∈ ℕ₀)
288	287	nn0cnd 12447	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐽C𝑘) ∈ ℂ)
289	288	adantlr 715	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → (𝐽C𝑘) ∈ ℂ)
290	273	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥) ∈ ℂ)
291	283, 290	mulcld 11135	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘)) → ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)) ∈ ℂ)
292	258, 289, 291	fsummulc2 15691	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝐽C𝑘) · Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
293	257, 285, 292	3eqtrd 2768	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑘 ∈ (0...𝐽)) → ((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
294	293	sumeq2dv 15609	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑘 ∈ (0...𝐽)((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥))) = Σ𝑘 ∈ (0...𝐽)Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
295		vex 3440	. . . . . . . 8 ⊢ 𝑘 ∈ V
296		vex 3440	. . . . . . . 8 ⊢ 𝑐 ∈ V
297	295, 296	op1std 7934	. . . . . . 7 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (1^st ‘𝑝) = 𝑘)
298	297	oveq2d 7365	. . . . . 6 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (𝐽C(1^st ‘𝑝)) = (𝐽C𝑘))
299	297	fveq2d 6826	. . . . . . . . 9 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (!‘(1^st ‘𝑝)) = (!‘𝑘))
300	295, 296	op2ndd 7935	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (2^nd ‘𝑝) = 𝑐)
301	300	fveq1d 6824	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((2^nd ‘𝑝)‘𝑡) = (𝑐‘𝑡))
302	301	fveq2d 6826	. . . . . . . . . 10 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (!‘((2^nd ‘𝑝)‘𝑡)) = (!‘(𝑐‘𝑡)))
303	302	prodeq2ad 45593	. . . . . . . . 9 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) = ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))
304	299, 303	oveq12d 7367	. . . . . . . 8 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) = ((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))))
305	301	fveq2d 6826	. . . . . . . . . 10 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)))
306	305	fveq1d 6824	. . . . . . . . 9 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))
307	306	prodeq2ad 45593	. . . . . . . 8 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) = ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))
308	304, 307	oveq12d 7367	. . . . . . 7 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) = (((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
309	297	oveq2d 7365	. . . . . . . . 9 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (𝐽 − (1^st ‘𝑝)) = (𝐽 − 𝑘))
310	309	fveq2d 6826	. . . . . . . 8 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘)))
311	310	fveq1d 6824	. . . . . . 7 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))
312	308, 311	oveq12d 7367	. . . . . 6 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥)) = ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)))
313	298, 312	oveq12d 7367	. . . . 5 ⊢ (𝑝 = ⟨𝑘, 𝑐⟩ → ((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))) = ((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))))
314		fzfid 13880	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (0...𝐽) ∈ Fin)
315	289	adantrr 717	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘))) → (𝐽C𝑘) ∈ ℂ)
316	291	anasss 466	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘))) → ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥)) ∈ ℂ)
317	315, 316	mulcld 11135	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑐 ∈ ((𝐶‘𝑅)‘𝑘))) → ((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))) ∈ ℂ)
318	313, 314, 258, 317	fsum2d 15678	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑘 ∈ (0...𝐽)Σ𝑐 ∈ ((𝐶‘𝑅)‘𝑘)((𝐽C𝑘) · ((((!‘𝑘) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − 𝑘))‘𝑥))) = Σ𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))))
319		ovex 7382	. . . . . . . . 9 ⊢ (𝐽 − (𝑐‘𝑍)) ∈ V
320	296	resex 5980	. . . . . . . . 9 ⊢ (𝑐 ↾ 𝑅) ∈ V
321	319, 320	op1std 7934	. . . . . . . 8 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (1^st ‘𝑝) = (𝐽 − (𝑐‘𝑍)))
322	321	oveq2d 7365	. . . . . . 7 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (𝐽C(1^st ‘𝑝)) = (𝐽C(𝐽 − (𝑐‘𝑍))))
323	321	fveq2d 6826	. . . . . . . . . 10 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (!‘(1^st ‘𝑝)) = (!‘(𝐽 − (𝑐‘𝑍))))
324	319, 320	op2ndd 7935	. . . . . . . . . . . . 13 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (2^nd ‘𝑝) = (𝑐 ↾ 𝑅))
325	324	fveq1d 6824	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((2^nd ‘𝑝)‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
326	325	fveq2d 6826	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (!‘((2^nd ‘𝑝)‘𝑡)) = (!‘((𝑐 ↾ 𝑅)‘𝑡)))
327	326	prodeq2ad 45593	. . . . . . . . . 10 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) = ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡)))
328	323, 327	oveq12d 7367	. . . . . . . . 9 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) = ((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))))
329	325	fveq2d 6826	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡)))
330	329	fveq1d 6824	. . . . . . . . . 10 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥))
331	330	prodeq2ad 45593	. . . . . . . . 9 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) = ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥))
332	328, 331	oveq12d 7367	. . . . . . . 8 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) = (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)))
333	321	oveq2d 7365	. . . . . . . . . 10 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (𝐽 − (1^st ‘𝑝)) = (𝐽 − (𝐽 − (𝑐‘𝑍))))
334	333	fveq2d 6826	. . . . . . . . 9 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍)))))
335	334	fveq1d 6824	. . . . . . . 8 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))
336	332, 335	oveq12d 7367	. . . . . . 7 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥)) = ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥)))
337	322, 336	oveq12d 7367	. . . . . 6 ⊢ (𝑝 = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ → ((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))) = ((𝐽C(𝐽 − (𝑐‘𝑍))) · ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))))
338		oveq2 7357	. . . . . . . . . . . . 13 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → ((0...𝑛) ↑_m 𝑠) = ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})))
339		rabeq 3409	. . . . . . . . . . . . 13 ⊢ (((0...𝑛) ↑_m 𝑠) = ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
340	338, 339	syl 17	. . . . . . . . . . . 12 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
341		sumeq1 15596	. . . . . . . . . . . . . 14 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡))
342	341	eqeq1d 2731	. . . . . . . . . . . . 13 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → (Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛))
343	342	rabbidv 3402	. . . . . . . . . . . 12 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
344	340, 343	eqtrd 2764	. . . . . . . . . . 11 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
345	344	mpteq2dv 5186	. . . . . . . . . 10 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}))
346	23	snssd 4760	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑍} ⊆ 𝑇)
347	4, 346	unssd 4143	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ⊆ 𝑇)
348	3, 347	ssexd 5263	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ∈ V)
349		elpwg 4554	. . . . . . . . . . . 12 ⊢ ((𝑅 ∪ {𝑍}) ∈ V → ((𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇 ↔ (𝑅 ∪ {𝑍}) ⊆ 𝑇))
350	348, 349	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇 ↔ (𝑅 ∪ {𝑍}) ⊆ 𝑇))
351	347, 350	mpbird 257	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇)
352	63	mptex 7159	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}) ∈ V
353	352	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}) ∈ V)
354	48, 345, 351, 353	fvmptd3 6953	. . . . . . . . 9 ⊢ (𝜑 → (𝐶‘(𝑅 ∪ {𝑍})) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}))
355		oveq2 7357	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝐽 → (0...𝑛) = (0...𝐽))
356	355	oveq1d 7364	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝐽 → ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) = ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})))
357		rabeq 3409	. . . . . . . . . . . 12 ⊢ (((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) = ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) → {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
358	356, 357	syl 17	. . . . . . . . . . 11 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
359		eqeq2 2741	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝐽 → (Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽))
360	359	rabbidv 3402	. . . . . . . . . . 11 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
361	358, 360	eqtrd 2764	. . . . . . . . . 10 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
362	361	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 = 𝐽) → {𝑐 ∈ ((0...𝑛) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
363		ovex 7382	. . . . . . . . . . 11 ⊢ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∈ V
364	363	rabex 5278	. . . . . . . . . 10 ⊢ {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ V
365	364	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ V)
366	354, 362, 45, 365	fvmptd 6937	. . . . . . . 8 ⊢ (𝜑 → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
367		fzfid 13880	. . . . . . . . . 10 ⊢ (𝜑 → (0...𝐽) ∈ Fin)
368		snfi 8968	. . . . . . . . . . . 12 ⊢ {𝑍} ∈ Fin
369	368	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → {𝑍} ∈ Fin)
370		unfi 9085	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Fin ∧ {𝑍} ∈ Fin) → (𝑅 ∪ {𝑍}) ∈ Fin)
371	6, 369, 370	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ∈ Fin)
372		mapfi 9238	. . . . . . . . . 10 ⊢ (((0...𝐽) ∈ Fin ∧ (𝑅 ∪ {𝑍}) ∈ Fin) → ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∈ Fin)
373	367, 371, 372	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∈ Fin)
374		ssrab2 4031	. . . . . . . . . 10 ⊢ {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ⊆ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍}))
375	374	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ⊆ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})))
376		ssfi 9087	. . . . . . . . 9 ⊢ ((((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∈ Fin ∧ {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ⊆ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍}))) → {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ Fin)
377	373, 375, 376	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ Fin)
378	366, 377	eqeltrd 2828	. . . . . . 7 ⊢ (𝜑 → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∈ Fin)
379	378	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∈ Fin)
380		dvnprodlem2.d	. . . . . . . 8 ⊢ 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
381	48, 45, 380, 3, 23, 10, 347	dvnprodlem1 45947	. . . . . . 7 ⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1-onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
382	381	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1-onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
383		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
384		opex 5407	. . . . . . . . 9 ⊢ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ V
385	384	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ V)
386	380	fvmpt2 6941	. . . . . . . 8 ⊢ ((𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ V) → (𝐷‘𝑐) = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
387	383, 385, 386	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐷‘𝑐) = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
388	387	adantlr 715	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐷‘𝑐) = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
389	45	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝐽 ∈ ℕ₀)
390		eliun 4945	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
391	390	biimpi 216	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
392	391	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
393		nfv 1914	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘𝜑
394		nfcv 2891	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑘𝑝
395		nfiu1 4977	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑘∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))
396	394, 395	nfel 2906	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))
397	393, 396	nfan 1899	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘(𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
398		nfv 1914	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘(1^st ‘𝑝) ∈ (0...𝐽)
399		xp1st 7956	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ {𝑘})
400		elsni 4594	. . . . . . . . . . . . . . . . . 18 ⊢ ((1^st ‘𝑝) ∈ {𝑘} → (1^st ‘𝑝) = 𝑘)
401	399, 400	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) = 𝑘)
402	401	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) = 𝑘)
403		simpl 482	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑘 ∈ (0...𝐽))
404	402, 403	eqeltrd 2828	. . . . . . . . . . . . . . 15 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ (0...𝐽))
405	404	ex 412	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽)))
406	405	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽))))
407	397, 398, 406	rexlimd 3236	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽)))
408	392, 407	mpd 15	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ (0...𝐽))
409		elfzelz 13427	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑝) ∈ (0...𝐽) → (1^st ‘𝑝) ∈ ℤ)
410	408, 409	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ ℤ)
411	389, 410	bccld 45317	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽C(1^st ‘𝑝)) ∈ ℕ₀)
412	411	nn0cnd 12447	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽C(1^st ‘𝑝)) ∈ ℂ)
413	412	adantlr 715	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽C(1^st ‘𝑝)) ∈ ℂ)
414		elfznn0 13523	. . . . . . . . . . . . . 14 ⊢ ((1^st ‘𝑝) ∈ (0...𝐽) → (1^st ‘𝑝) ∈ ℕ₀)
415	408, 414	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ ℕ₀)
416	415	faccld 14191	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (!‘(1^st ‘𝑝)) ∈ ℕ)
417	416	nncnd 12144	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (!‘(1^st ‘𝑝)) ∈ ℂ)
418	417	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (!‘(1^st ‘𝑝)) ∈ ℂ)
419	6	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑅 ∈ Fin)
420		nfv 1914	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑘(2^nd ‘𝑝):𝑅⟶(0...𝐽)
421	84, 82	eqsstrd 3970	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) ⊆ ((0...𝑘) ↑_m 𝑅))
422		ovex 7382	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0...𝐽) ∈ V
423	422	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑘 ∈ (0...𝐽) → (0...𝐽) ∈ V)
424		mapss 8816	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((0...𝐽) ∈ V ∧ (0...𝑘) ⊆ (0...𝐽)) → ((0...𝑘) ↑_m 𝑅) ⊆ ((0...𝐽) ↑_m 𝑅))
425	423, 122, 424	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑘 ∈ (0...𝐽) → ((0...𝑘) ↑_m 𝑅) ⊆ ((0...𝐽) ↑_m 𝑅))
426	425	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((0...𝑘) ↑_m 𝑅) ⊆ ((0...𝐽) ↑_m 𝑅))
427	421, 426	sstrd 3946	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) ⊆ ((0...𝐽) ↑_m 𝑅))
428	427	3adant3 1132	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝐶‘𝑅)‘𝑘) ⊆ ((0...𝐽) ↑_m 𝑅))
429		xp2nd 7957	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (2^nd ‘𝑝) ∈ ((𝐶‘𝑅)‘𝑘))
430	429	3ad2ant3 1135	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) ∈ ((𝐶‘𝑅)‘𝑘))
431	428, 430	sseldd 3936	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) ∈ ((0...𝐽) ↑_m 𝑅))
432		elmapi 8776	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2^nd ‘𝑝) ∈ ((0...𝐽) ↑_m 𝑅) → (2^nd ‘𝑝):𝑅⟶(0...𝐽))
433	431, 432	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝):𝑅⟶(0...𝐽))
434	433	3exp 1119	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (2^nd ‘𝑝):𝑅⟶(0...𝐽))))
435	434	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (2^nd ‘𝑝):𝑅⟶(0...𝐽))))
436	397, 420, 435	rexlimd 3236	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (2^nd ‘𝑝):𝑅⟶(0...𝐽)))
437	392, 436	mpd 15	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝):𝑅⟶(0...𝐽))
438	437	ffvelcdmda 7018	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝐽))
439		elfznn0 13523	. . . . . . . . . . . . . . 15 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝐽) → ((2^nd ‘𝑝)‘𝑡) ∈ ℕ₀)
440	439	faccld 14191	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝐽) → (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℕ)
441	440	nncnd 12144	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝐽) → (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℂ)
442	438, 441	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℂ)
443	419, 442	fprodcl 15859	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℂ)
444	443	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℂ)
445	438, 440	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℕ)
446		nnne0 12162	. . . . . . . . . . . . 13 ⊢ ((!‘((2^nd ‘𝑝)‘𝑡)) ∈ ℕ → (!‘((2^nd ‘𝑝)‘𝑡)) ≠ 0)
447	445, 446	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (!‘((2^nd ‘𝑝)‘𝑡)) ≠ 0)
448	419, 442, 447	fprodn0 15886	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) ≠ 0)
449	448	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡)) ≠ 0)
450	418, 444, 449	divcld 11900	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) ∈ ℂ)
451	7	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑅 ∈ Fin)
452		simpll 766	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 𝜑)
453	452, 13	sylancom 588	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑇)
454	452, 133	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (0...𝐽) ⊆ (0...𝑁))
455	454, 438	sseldd 3936	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁))
456	452, 453, 455	3jca 1128	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (𝜑 ∧ 𝑡 ∈ 𝑇 ∧ ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁)))
457		eleq1 2816	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = ((2^nd ‘𝑝)‘𝑡) → (𝑗 ∈ (0...𝑁) ↔ ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁)))
458	457	3anbi3d 1444	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = ((2^nd ‘𝑝)‘𝑡) → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑡 ∈ 𝑇 ∧ ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁))))
459		fveq2 6822	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = ((2^nd ‘𝑝)‘𝑡) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)))
460	459	feq1d 6634	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = ((2^nd ‘𝑝)‘𝑡) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)):𝑋⟶ℂ))
461	458, 460	imbi12d 344	. . . . . . . . . . . . . 14 ⊢ (𝑗 = ((2^nd ‘𝑝)‘𝑡) → (((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)):𝑋⟶ℂ)))
462	461, 145	vtoclg 3509	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝐽) → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)):𝑋⟶ℂ))
463	438, 456, 462	sylc 65	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)):𝑋⟶ℂ)
464	463	adantllr 719	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡)):𝑋⟶ℂ)
465	17	adantlr 715	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 𝑥 ∈ 𝑋)
466	464, 465	ffvelcdmd 7019	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) ∈ ℂ)
467	451, 466	fprodcl 15859	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥) ∈ ℂ)
468	450, 467	mulcld 11135	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) ∈ ℂ)
469		nfv 1914	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘(𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽)
470		simp1 1136	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝜑)
471	404	3adant1 1130	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ (0...𝐽))
472		fznn0sub2 13538	. . . . . . . . . . . . . . . . 17 ⊢ ((1^st ‘𝑝) ∈ (0...𝐽) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))
473	472	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (1^st ‘𝑝) ∈ (0...𝐽)) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))
474	470, 471, 473	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))
475	474	3exp 1119	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))))
476	475	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))))
477	397, 469, 476	rexlimd 3236	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽)))
478	392, 477	mpd 15	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽))
479		simpl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝜑)
480	479, 23	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑍 ∈ 𝑇)
481	479, 133	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (0...𝐽) ⊆ (0...𝑁))
482	481, 478	sseldd 3936	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁))
483	479, 480, 482	3jca 1128	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁)))
484		eleq1 2816	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝐽 − (1^st ‘𝑝)) → (𝑗 ∈ (0...𝑁) ↔ (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁)))
485	484	3anbi3d 1444	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝐽 − (1^st ‘𝑝)) → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁))))
486		fveq2 6822	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝐽 − (1^st ‘𝑝)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))))
487	486	feq1d 6634	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝐽 − (1^st ‘𝑝)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))):𝑋⟶ℂ))
488	485, 487	imbi12d 344	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝐽 − (1^st ‘𝑝)) → (((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))):𝑋⟶ℂ)))
489		simp2 1137	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → 𝑍 ∈ 𝑇)
490		id 22	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)))
491	26	3anbi2d 1443	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑍 → ((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁))))
492	179	fveq1d 6824	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑍 → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗))
493	492	feq1d 6634	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑍 → (((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ))
494	491, 493	imbi12d 344	. . . . . . . . . . . . . 14 ⊢ (𝑡 = 𝑍 → (((𝜑 ∧ 𝑡 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ)))
495	494, 145	vtoclg 3509	. . . . . . . . . . . . 13 ⊢ (𝑍 ∈ 𝑇 → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ))
496	489, 490, 495	sylc 65	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ)
497	488, 496	vtoclg 3509	. . . . . . . . . . 11 ⊢ ((𝐽 − (1^st ‘𝑝)) ∈ (0...𝐽) → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝐽 − (1^st ‘𝑝)) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))):𝑋⟶ℂ))
498	478, 483, 497	sylc 65	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))):𝑋⟶ℂ)
499	498	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝))):𝑋⟶ℂ)
500	34	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑥 ∈ 𝑋)
501	499, 500	ffvelcdmd 7019	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥) ∈ ℂ)
502	468, 501	mulcld 11135	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥)) ∈ ℂ)
503	413, 502	mulcld 11135	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))) ∈ ℂ)
504	337, 379, 382, 388, 503	fsumf1o 15630	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)((𝐽C(𝐽 − (𝑐‘𝑍))) · ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))))
505		simpl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝜑)
506	366	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) = {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
507	383, 506	eleqtrd 2830	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
508	374	sseli 3931	. . . . . . . . . . . . . . 15 ⊢ (𝑐 ∈ {𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} → 𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})))
509	507, 508	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})))
510		elmapi 8776	. . . . . . . . . . . . . 14 ⊢ (𝑐 ∈ ((0...𝐽) ↑_m (𝑅 ∪ {𝑍})) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
511	509, 510	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
512		snidg 4612	. . . . . . . . . . . . . . . 16 ⊢ (𝑍 ∈ 𝑇 → 𝑍 ∈ {𝑍})
513	23, 512	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑍 ∈ {𝑍})
514		elun2 4134	. . . . . . . . . . . . . . 15 ⊢ (𝑍 ∈ {𝑍} → 𝑍 ∈ (𝑅 ∪ {𝑍}))
515	513, 514	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑍 ∈ (𝑅 ∪ {𝑍}))
516	515	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ (𝑅 ∪ {𝑍}))
517	511, 516	ffvelcdmd 7019	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ (0...𝐽))
518		0zd 12483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → 0 ∈ ℤ)
519	124	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → 𝐽 ∈ ℤ)
520		fzssz 13429	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐽) ⊆ ℤ
521	520	sseli 3931	. . . . . . . . . . . . . . 15 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → (𝑐‘𝑍) ∈ ℤ)
522	521	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝑐‘𝑍) ∈ ℤ)
523	519, 522	zsubcld 12585	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ ℤ)
524		elfzle2 13431	. . . . . . . . . . . . . . 15 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → (𝑐‘𝑍) ≤ 𝐽)
525	524	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝑐‘𝑍) ≤ 𝐽)
526	163	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → 𝐽 ∈ ℝ)
527	522	zred 12580	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝑐‘𝑍) ∈ ℝ)
528	526, 527	subge0d 11710	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (0 ≤ (𝐽 − (𝑐‘𝑍)) ↔ (𝑐‘𝑍) ≤ 𝐽))
529	525, 528	mpbird 257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → 0 ≤ (𝐽 − (𝑐‘𝑍)))
530		elfzle1 13430	. . . . . . . . . . . . . . 15 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → 0 ≤ (𝑐‘𝑍))
531	530	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → 0 ≤ (𝑐‘𝑍))
532	526, 527	subge02d 11712	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (0 ≤ (𝑐‘𝑍) ↔ (𝐽 − (𝑐‘𝑍)) ≤ 𝐽))
533	531, 532	mpbid 232	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝐽 − (𝑐‘𝑍)) ≤ 𝐽)
534	518, 519, 523, 529, 533	elfzd 13418	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑐‘𝑍) ∈ (0...𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽))
535	505, 517, 534	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽))
536		bcval2 14212	. . . . . . . . . . 11 ⊢ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) → (𝐽C(𝐽 − (𝑐‘𝑍))) = ((!‘𝐽) / ((!‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) · (!‘(𝐽 − (𝑐‘𝑍))))))
537	535, 536	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽C(𝐽 − (𝑐‘𝑍))) = ((!‘𝐽) / ((!‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) · (!‘(𝐽 − (𝑐‘𝑍))))))
538	163	recnd 11143	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ ℂ)
539	538	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐽 ∈ ℂ)
540		zsscn 12479	. . . . . . . . . . . . . . . . 17 ⊢ ℤ ⊆ ℂ
541	520, 540	sstri 3945	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐽) ⊆ ℂ
542	541	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0...𝐽) ⊆ ℂ)
543	542, 517	sseldd 3936	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ ℂ)
544	539, 543	nncand 11480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝐽 − (𝑐‘𝑍))) = (𝑐‘𝑍))
545	544	fveq2d 6826	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) = (!‘(𝑐‘𝑍)))
546	545	oveq1d 7364	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) · (!‘(𝐽 − (𝑐‘𝑍)))) = ((!‘(𝑐‘𝑍)) · (!‘(𝐽 − (𝑐‘𝑍)))))
547	546	oveq2d 7365	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘𝐽) / ((!‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) · (!‘(𝐽 − (𝑐‘𝑍))))) = ((!‘𝐽) / ((!‘(𝑐‘𝑍)) · (!‘(𝐽 − (𝑐‘𝑍))))))
548	45	faccld 14191	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (!‘𝐽) ∈ ℕ)
549	548	nncnd 12144	. . . . . . . . . . . . 13 ⊢ (𝜑 → (!‘𝐽) ∈ ℂ)
550	549	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘𝐽) ∈ ℂ)
551		elfznn0 13523	. . . . . . . . . . . . . . 15 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → (𝑐‘𝑍) ∈ ℕ₀)
552	517, 551	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ ℕ₀)
553	552	faccld 14191	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝑐‘𝑍)) ∈ ℕ)
554	553	nncnd 12144	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝑐‘𝑍)) ∈ ℂ)
555		elfznn0 13523	. . . . . . . . . . . . . . 15 ⊢ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) → (𝐽 − (𝑐‘𝑍)) ∈ ℕ₀)
556	535, 555	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ ℕ₀)
557	556	faccld 14191	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝑐‘𝑍))) ∈ ℕ)
558	557	nncnd 12144	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝑐‘𝑍))) ∈ ℂ)
559	553	nnne0d 12178	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝑐‘𝑍)) ≠ 0)
560	557	nnne0d 12178	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝑐‘𝑍))) ≠ 0)
561	550, 554, 558, 559, 560	divdiv1d 11931	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))) = ((!‘𝐽) / ((!‘(𝑐‘𝑍)) · (!‘(𝐽 − (𝑐‘𝑍))))))
562	561	eqcomd 2735	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘𝐽) / ((!‘(𝑐‘𝑍)) · (!‘(𝐽 − (𝑐‘𝑍))))) = (((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))))
563	537, 547, 562	3eqtrd 2768	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽C(𝐽 − (𝑐‘𝑍))) = (((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))))
564	563	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽C(𝐽 − (𝑐‘𝑍))) = (((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))))
565		fvres 6841	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ 𝑅 → ((𝑐 ↾ 𝑅)‘𝑡) = (𝑐‘𝑡))
566	565	fveq2d 6826	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ 𝑅 → (!‘((𝑐 ↾ 𝑅)‘𝑡)) = (!‘(𝑐‘𝑡)))
567	566	prodeq2i 15825	. . . . . . . . . . . . . . 15 ⊢ ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡)) = ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))
568	567	oveq2i 7360	. . . . . . . . . . . . . 14 ⊢ ((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) = ((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))
569	565	fveq2d 6826	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ 𝑅 → ((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡)) = ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)))
570	569	fveq1d 6824	. . . . . . . . . . . . . . 15 ⊢ (𝑡 ∈ 𝑅 → (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))
571	570	prodeq2i 15825	. . . . . . . . . . . . . 14 ⊢ ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥) = ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)
572	568, 571	oveq12i 7361	. . . . . . . . . . . . 13 ⊢ (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) = (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))
573	572	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) = (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
574	573	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) = (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
575	558	adantlr 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝑐‘𝑍))) ∈ ℂ)
576	505, 6	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑅 ∈ Fin)
577	75	ssriv 3939	. . . . . . . . . . . . . . . . . 18 ⊢ (0...𝐽) ⊆ ℕ₀
578	577	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (0...𝐽) ⊆ ℕ₀)
579	511	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
580		elun1 4133	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 ∈ 𝑅 → 𝑡 ∈ (𝑅 ∪ {𝑍}))
581	580	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ (𝑅 ∪ {𝑍}))
582	579, 581	ffvelcdmd 7019	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝐽))
583	578, 582	sseldd 3936	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ ℕ₀)
584	583	faccld 14191	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (!‘(𝑐‘𝑡)) ∈ ℕ)
585	584	nncnd 12144	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (!‘(𝑐‘𝑡)) ∈ ℂ)
586	576, 585	fprodcl 15859	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ∈ ℂ)
587	586	adantlr 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ∈ ℂ)
588	7	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑅 ∈ Fin)
589	505	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝜑)
590	505, 13	sylan 580	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑇)
591	589, 133	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (0...𝐽) ⊆ (0...𝑁))
592	591, 582	sseldd 3936	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝑁))
593	589, 590, 592, 146	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
594	593	adantllr 719	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
595	17	adantlr 715	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑥 ∈ 𝑋)
596	594, 595	ffvelcdmd 7019	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
597	588, 596	fprodcl 15859	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
598	576, 584	fprodnncl 15862	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ∈ ℕ)
599		nnne0 12162	. . . . . . . . . . . . . 14 ⊢ (∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ∈ ℕ → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ≠ 0)
600	598, 599	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ≠ 0)
601	600	adantlr 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) ≠ 0)
602	575, 587, 597, 601	div32d 11923	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) = ((!‘(𝐽 − (𝑐‘𝑍))) · (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))))
603	574, 602	eqtrd 2764	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) = ((!‘(𝐽 − (𝑐‘𝑍))) · (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))))
604	544	fveq2d 6826	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍)))) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)))
605	604	fveq1d 6824	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))
606	605	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))
607	603, 606	oveq12d 7367	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥)) = (((!‘(𝐽 − (𝑐‘𝑍))) · (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)))
608	597, 587, 601	divcld 11900	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) ∈ ℂ)
609	505, 23	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ 𝑇)
610	505, 133	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0...𝐽) ⊆ (0...𝑁))
611	610, 517	sseldd 3936	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ (0...𝑁))
612	505, 609, 611	3jca 1128	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝑐‘𝑍) ∈ (0...𝑁)))
613		eleq1 2816	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = (𝑐‘𝑍) → (𝑗 ∈ (0...𝑁) ↔ (𝑐‘𝑍) ∈ (0...𝑁)))
614	613	3anbi3d 1444	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑐‘𝑍) → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) ↔ (𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝑐‘𝑍) ∈ (0...𝑁))))
615		fveq2 6822	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = (𝑐‘𝑍) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)))
616	615	feq1d 6634	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑐‘𝑍) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ ↔ ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)):𝑋⟶ℂ))
617	614, 616	imbi12d 344	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝑐‘𝑍) → (((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ 𝑗 ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘𝑗):𝑋⟶ℂ) ↔ ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝑐‘𝑍) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)):𝑋⟶ℂ)))
618	617, 496	vtoclg 3509	. . . . . . . . . . . . 13 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → ((𝜑 ∧ 𝑍 ∈ 𝑇 ∧ (𝑐‘𝑍) ∈ (0...𝑁)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)):𝑋⟶ℂ))
619	517, 612, 618	sylc 65	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)):𝑋⟶ℂ)
620	619	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)):𝑋⟶ℂ)
621	34	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑥 ∈ 𝑋)
622	620, 621	ffvelcdmd 7019	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥) ∈ ℂ)
623	575, 608, 622	mulassd 11138	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘(𝐽 − (𝑐‘𝑍))) · (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) = ((!‘(𝐽 − (𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))))
624	607, 623	eqtrd 2764	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥)) = ((!‘(𝐽 − (𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))))
625	564, 624	oveq12d 7367	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐽C(𝐽 − (𝑐‘𝑍))) · ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))) = ((((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))) · ((!‘(𝐽 − (𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)))))
626	549	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘𝐽) ∈ ℂ)
627	554	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝑐‘𝑍)) ∈ ℂ)
628	559	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝑐‘𝑍)) ≠ 0)
629	626, 627, 628	divcld 11900	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘𝐽) / (!‘(𝑐‘𝑍))) ∈ ℂ)
630	608, 622	mulcld 11135	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) ∈ ℂ)
631	560	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (!‘(𝐽 − (𝑐‘𝑍))) ≠ 0)
632	629, 575, 630, 631	dmmcand 45315	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((((!‘𝐽) / (!‘(𝑐‘𝑍))) / (!‘(𝐽 − (𝑐‘𝑍)))) · ((!‘(𝐽 − (𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)))) = (((!‘𝐽) / (!‘(𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))))
633	597, 622, 587, 601	div23d 11937	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) = ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)))
634	633	eqcomd 2735	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) = ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))))
635		nfv 1914	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑡((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
636		nfcv 2891	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑡(((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)
637	609	adantlr 715	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ 𝑇)
638	11	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ¬ 𝑍 ∈ 𝑅)
639		fveq2 6822	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑍 → (𝑐‘𝑡) = (𝑐‘𝑍))
640	179, 639	fveq12d 6829	. . . . . . . . . . . . . 14 ⊢ (𝑡 = 𝑍 → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)) = ((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍)))
641	640	fveq1d 6824	. . . . . . . . . . . . 13 ⊢ (𝑡 = 𝑍 → (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) = (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))
642	635, 636, 588, 637, 638, 596, 641, 622	fprodsplitsn 15896	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) = (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)))
643	642	eqcomd 2735	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) = ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))
644	643	oveq1d 7364	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) = (∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))))
645	634, 644	eqtrd 2764	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥)) = (∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))))
646	645	oveq2d 7365	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) / (!‘(𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))) = (((!‘𝐽) / (!‘(𝑐‘𝑍))) · (∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))))
647	588, 368, 370	sylancl 586	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑅 ∪ {𝑍}) ∈ Fin)
648	505	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝜑)
649	347	sselda 3935	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝑡 ∈ 𝑇)
650	649	adantlr 715	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝑡 ∈ 𝑇)
651	511, 610	fssd 6669	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝑁))
652	651	ffvelcdmda 7018	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (𝑐‘𝑡) ∈ (0...𝑁))
653	648, 650, 652, 146	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
654	653	adantllr 719	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → ((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡)):𝑋⟶ℂ)
655	621	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝑥 ∈ 𝑋)
656	654, 655	ffvelcdmd 7019	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
657	647, 656	fprodcl 15859	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) ∈ ℂ)
658	626, 627, 657, 587, 628, 601	divmuldivd 11941	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) / (!‘(𝑐‘𝑍))) · (∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) = (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))))
659	554, 586	mulcomd 11136	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) = (∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) · (!‘(𝑐‘𝑍))))
660		nfv 1914	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑡(𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
661		nfcv 2891	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑡(!‘(𝑐‘𝑍))
662	505, 10	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ¬ 𝑍 ∈ 𝑅)
663	639	fveq2d 6826	. . . . . . . . . . . . . 14 ⊢ (𝑡 = 𝑍 → (!‘(𝑐‘𝑡)) = (!‘(𝑐‘𝑍)))
664	660, 661, 576, 609, 662, 585, 663, 554	fprodsplitsn 15896	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)) = (∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) · (!‘(𝑐‘𝑍))))
665	664	eqcomd 2735	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)) · (!‘(𝑐‘𝑍))) = ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)))
666	659, 665	eqtrd 2764	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) = ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)))
667	666	oveq2d 7365	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) = (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))))
668	667	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) = (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))))
669	505, 371	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑅 ∪ {𝑍}) ∈ Fin)
670	577	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (0...𝐽) ⊆ ℕ₀)
671	511	ffvelcdmda 7018	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (𝑐‘𝑡) ∈ (0...𝐽))
672	670, 671	sseldd 3936	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (𝑐‘𝑡) ∈ ℕ₀)
673	672	faccld 14191	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (!‘(𝑐‘𝑡)) ∈ ℕ)
674	673	nncnd 12144	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (!‘(𝑐‘𝑡)) ∈ ℂ)
675	669, 674	fprodcl 15859	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)) ∈ ℂ)
676	675	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)) ∈ ℂ)
677	673	nnne0d 12178	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (!‘(𝑐‘𝑡)) ≠ 0)
678	669, 674, 677	fprodn0 15886	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)) ≠ 0)
679	678	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡)) ≠ 0)
680	626, 657, 676, 679	div23d 11937	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) = (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
681		eqidd 2730	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) = (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
682	668, 680, 681	3eqtrd 2768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)) / ((!‘(𝑐‘𝑍)) · ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡)))) = (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
683	646, 658, 682	3eqtrd 2768	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (((!‘𝐽) / (!‘(𝑐‘𝑍))) · ((∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥) / ∏𝑡 ∈ 𝑅 (!‘(𝑐‘𝑡))) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝑐‘𝑍))‘𝑥))) = (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
684	625, 632, 683	3eqtrd 2768	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐽C(𝐽 − (𝑐‘𝑍))) · ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))) = (((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
685	684	sumeq2dv 15609	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)((𝐽C(𝐽 − (𝑐‘𝑍))) · ((((!‘(𝐽 − (𝑐‘𝑍))) / ∏𝑡 ∈ 𝑅 (!‘((𝑐 ↾ 𝑅)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((𝑐 ↾ 𝑅)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (𝐽 − (𝑐‘𝑍))))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
686	504, 685	eqtrd 2764	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))((𝐽C(1^st ‘𝑝)) · ((((!‘(1^st ‘𝑝)) / ∏𝑡 ∈ 𝑅 (!‘((2^nd ‘𝑝)‘𝑡))) · ∏𝑡 ∈ 𝑅 (((𝑆 D^𝑛 (𝐻‘𝑡))‘((2^nd ‘𝑝)‘𝑡))‘𝑥)) · (((𝑆 D^𝑛 (𝐻‘𝑍))‘(𝐽 − (1^st ‘𝑝)))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
687	294, 318, 686	3eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → Σ𝑘 ∈ (0...𝐽)((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥))) = Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥)))
688	687	mpteq2dva 5185	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝑋 ↦ Σ𝑘 ∈ (0...𝐽)((𝐽C𝑘) · ((((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ∏𝑡 ∈ 𝑅 ((𝐻‘𝑡)‘𝑦)))‘𝑘))‘𝑘)‘𝑥) · (((𝑘 ∈ (0...𝐽) ↦ ((𝑆 D^𝑛 (𝑦 ∈ 𝑋 ↦ ((𝐻‘𝑍)‘𝑦)))‘𝑘))‘(𝐽 − 𝑘))‘𝑥)))) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))
689	39, 209, 688	3eqtrd 2768	1 ⊢ (𝜑 → ((𝑆 D^𝑛 (𝑥 ∈ 𝑋 ↦ ∏𝑡 ∈ (𝑅 ∪ {𝑍})((𝐻‘𝑡)‘𝑥)))‘𝐽) = (𝑥 ∈ 𝑋 ↦ Σ𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)(((!‘𝐽) / ∏𝑡 ∈ (𝑅 ∪ {𝑍})(!‘(𝑐‘𝑡))) · ∏𝑡 ∈ (𝑅 ∪ {𝑍})(((𝑆 D^𝑛 (𝐻‘𝑡))‘(𝑐‘𝑡))‘𝑥))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 ∃wrex 3053 {crab 3394 Vcvv 3436 ∖ cdif 3900 ∪ cun 3901 ⊆ wss 3903 𝒫 cpw 4551 {csn 4577 {cpr 4579 ⟨cop 4583 ∪ ciun 4941 class class class wbr 5092 ↦ cmpt 5173 × cxp 5617 ↾ cres 5621 ⟶wf 6478 –1-1-onto→wf1o 6481 ‘cfv 6482 (class class class)co 7349 1^st c1st 7922 2^nd c2nd 7923 ↑_m cmap 8753 Fincfn 8872 ℂcc 11007 ℝcr 11008 0cc0 11009 · cmul 11014 ≤ cle 11150 − cmin 11347 / cdiv 11777 ℕcn 12128 ℕ₀cn0 12384 ℤcz 12471 ℤ_≥cuz 12735 ...cfz 13410 !cfa 14180 Ccbc 14209 Σcsu 15593 ∏cprod 15810 ↾_t crest 17324 TopOpenctopn 17325 ℂ_fldccnfld 21261 D^𝑛 cdvn 25763

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-inf2 9537 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-pre-sup 11087 ax-addf 11088

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4859 df-int 4897 df-iun 4943 df-iin 4944 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-of 7613 df-om 7800 df-1st 7924 df-2nd 7925 df-supp 8094 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-2o 8389 df-er 8625 df-map 8755 df-pm 8756 df-ixp 8825 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-fsupp 9252 df-fi 9301 df-sup 9332 df-inf 9333 df-oi 9402 df-card 9835 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-div 11778 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-7 12196 df-8 12197 df-9 12198 df-n0 12385 df-z 12472 df-dec 12592 df-uz 12736 df-q 12850 df-rp 12894 df-xneg 13014 df-xadd 13015 df-xmul 13016 df-ico 13254 df-icc 13255 df-fz 13411 df-fzo 13558 df-seq 13909 df-exp 13969 df-fac 14181 df-bc 14210 df-hash 14238 df-cj 15006 df-re 15007 df-im 15008 df-sqrt 15142 df-abs 15143 df-clim 15395 df-sum 15594 df-prod 15811 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-hom 17185 df-cco 17186 df-rest 17326 df-topn 17327 df-0g 17345 df-gsum 17346 df-topgen 17347 df-pt 17348 df-prds 17351 df-xrs 17406 df-qtop 17411 df-imas 17412 df-xps 17414 df-mre 17488 df-mrc 17489 df-acs 17491 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-submnd 18658 df-mulg 18947 df-cntz 19196 df-cmn 19661 df-psmet 21253 df-xmet 21254 df-met 21255 df-bl 21256 df-mopn 21257 df-fbas 21258 df-fg 21259 df-cnfld 21262 df-top 22779 df-topon 22796 df-topsp 22818 df-bases 22831 df-cld 22904 df-ntr 22905 df-cls 22906 df-nei 22983 df-lp 23021 df-perf 23022 df-cn 23112 df-cnp 23113 df-haus 23200 df-tx 23447 df-hmeo 23640 df-fil 23731 df-fm 23823 df-flim 23824 df-flf 23825 df-xms 24206 df-ms 24207 df-tms 24208 df-cncf 24769 df-limc 25765 df-dv 25766 df-dvn 25767

This theorem is referenced by: dvnprodlem3 45949

W3C validator