dvnprodlem1 - Mathbox for Glauco Siliprandi

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

Theorem dvnprodlem1 40635

Description: 𝐷 is bijective. (Contributed by Glauco Siliprandi, 5-Apr-2020.)

**Hypotheses**
Ref	Expression
dvnprodlem1.c	⊢ 𝐶 = (𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}))
dvnprodlem1.j	⊢ (𝜑 → 𝐽 ∈ ℕ₀)
dvnprodlem1.d	⊢ 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
dvnprodlem1.t	⊢ (𝜑 → 𝑇 ∈ Fin)
dvnprodlem1.z	⊢ (𝜑 → 𝑍 ∈ 𝑇)
dvnprodlem1.zr	⊢ (𝜑 → ¬ 𝑍 ∈ 𝑅)
dvnprodlem1.rzt	⊢ (𝜑 → (𝑅 ∪ {𝑍}) ⊆ 𝑇)

**Assertion**
Ref	Expression
dvnprodlem1	⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1-onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))

Distinct variable groups: 𝐶,𝑐,𝑘 𝐷,𝑐,𝑡 𝐽,𝑐,𝑘,𝑛,𝑡 𝑅,𝑐,𝑘,𝑛,𝑡 𝑅,𝑠,𝑐,𝑛,𝑡 𝑡,𝑇,𝑠 𝑍,𝑐,𝑘,𝑛,𝑡 𝑍,𝑠 𝜑,𝑐,𝑛,𝑡,𝑘 𝜑,𝑠 Allowed substitution hints: 𝐶(𝑡,𝑛,𝑠) 𝐷(𝑘,𝑛,𝑠) 𝑇(𝑘,𝑛,𝑐) 𝐽(𝑠)

Proof of Theorem dvnprodlem1 Dummy variables 𝑑 𝑒 𝑚 𝑝 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqidd 2803	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
2		0zd 11649	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 0 ∈ ℤ)
3		dvnprodlem1.j	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ ℕ₀)
4	3	nn0zd 11740	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐽 ∈ ℤ)
5	4	adantr 468	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐽 ∈ ℤ)
6		fzssz 12560	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐽) ⊆ ℤ
7	6	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0...𝐽) ⊆ ℤ)
8		dvnprodlem1.c	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝐶 = (𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}))
9	8	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐶 = (𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})))
10		oveq2 6876	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → ((0...𝑛) ↑_𝑚 𝑠) = ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})))
11		rabeq 3378	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((0...𝑛) ↑_𝑚 𝑠) = ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
12	10, 11	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
13		sumeq1 14636	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡))
14	13	eqeq1d 2804	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → (Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛))
15	14	rabbidv 3375	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
16	12, 15	eqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
17	16	mpteq2dv 4932	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑠 = (𝑅 ∪ {𝑍}) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}))
18	17	adantl 469	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑠 = (𝑅 ∪ {𝑍})) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}))
19		dvnprodlem1.rzt	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ⊆ 𝑇)
20		dvnprodlem1.t	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑇 ∈ Fin)
21		ssexg 4993	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑅 ∪ {𝑍}) ⊆ 𝑇 ∧ 𝑇 ∈ Fin) → (𝑅 ∪ {𝑍}) ∈ V)
22	19, 20, 21	syl2anc 575	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ∈ V)
23		elpwg 4353	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑅 ∪ {𝑍}) ∈ V → ((𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇 ↔ (𝑅 ∪ {𝑍}) ⊆ 𝑇))
24	22, 23	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇 ↔ (𝑅 ∪ {𝑍}) ⊆ 𝑇))
25	19, 24	mpbird 248	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑅 ∪ {𝑍}) ∈ 𝒫 𝑇)
26		nn0ex 11559	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ℕ₀ ∈ V
27	26	mptex 6705	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}) ∈ V
28	27	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}) ∈ V)
29	9, 18, 25, 28	fvmptd 6503	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐶‘(𝑅 ∪ {𝑍})) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛}))
30		oveq2 6876	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑛 = 𝐽 → (0...𝑛) = (0...𝐽))
31	30	oveq1d 6883	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 = 𝐽 → ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) = ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
32		rabeq 3378	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) = ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
33	31, 32	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛})
34		eqeq2 2813	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 = 𝐽 → (Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽))
35	34	rabbidv 3375	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
36	33, 35	eqtrd 2836	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = 𝐽 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
37	36	adantl 469	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑛 = 𝐽) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
38		ovex 6900	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∈ V
39	38	rabex 5001	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ V
40	39	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ∈ V)
41	29, 37, 3, 40	fvmptd 6503	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
42		ssrab2 3878	. . . . . . . . . . . . . . . . . . . . 21 ⊢ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ⊆ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍}))
43	42	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ⊆ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
44	41, 43	eqsstrd 3830	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ⊆ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
45	44	adantr 468	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ⊆ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
46		simpr 473	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
47	45, 46	sseldd 3793	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
48		elmapi 8108	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
49	47, 48	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
50		dvnprodlem1.z	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑍 ∈ 𝑇)
51		snidg 4394	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑍 ∈ 𝑇 → 𝑍 ∈ {𝑍})
52	50, 51	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑍 ∈ {𝑍})
53		elun2 3974	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑍 ∈ {𝑍} → 𝑍 ∈ (𝑅 ∪ {𝑍}))
54	52, 53	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑍 ∈ (𝑅 ∪ {𝑍}))
55	54	adantr 468	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ (𝑅 ∪ {𝑍}))
56	49, 55	ffvelrnd 6576	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ (0...𝐽))
57	7, 56	sseldd 3793	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ ℤ)
58	5, 57	zsubcld 11747	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ ℤ)
59	2, 5, 58	3jca 1151	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ))
60		elfzle2 12562	. . . . . . . . . . . . . 14 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → (𝑐‘𝑍) ≤ 𝐽)
61	56, 60	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ≤ 𝐽)
62	5	zred 11742	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐽 ∈ ℝ)
63	57	zred 11742	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ ℝ)
64	62, 63	subge0d 10896	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0 ≤ (𝐽 − (𝑐‘𝑍)) ↔ (𝑐‘𝑍) ≤ 𝐽))
65	61, 64	mpbird 248	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 0 ≤ (𝐽 − (𝑐‘𝑍)))
66		elfzle1 12561	. . . . . . . . . . . . . 14 ⊢ ((𝑐‘𝑍) ∈ (0...𝐽) → 0 ≤ (𝑐‘𝑍))
67	56, 66	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 0 ≤ (𝑐‘𝑍))
68	62, 63	subge02d 10898	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0 ≤ (𝑐‘𝑍) ↔ (𝐽 − (𝑐‘𝑍)) ≤ 𝐽))
69	67, 68	mpbid 223	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ≤ 𝐽)
70	59, 65, 69	jca32 507	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ) ∧ (0 ≤ (𝐽 − (𝑐‘𝑍)) ∧ (𝐽 − (𝑐‘𝑍)) ≤ 𝐽)))
71		elfz2 12550	. . . . . . . . . . 11 ⊢ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ↔ ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ) ∧ (0 ≤ (𝐽 − (𝑐‘𝑍)) ∧ (𝐽 − (𝑐‘𝑍)) ≤ 𝐽)))
72	70, 71	sylibr 225	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽))
73		elmapfn 8109	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) → 𝑐 Fn (𝑅 ∪ {𝑍}))
74	47, 73	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 Fn (𝑅 ∪ {𝑍}))
75		ssun1 3969	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑅 ⊆ (𝑅 ∪ {𝑍})
76	75	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑅 ⊆ (𝑅 ∪ {𝑍}))
77		fnssres 6209	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 Fn (𝑅 ∪ {𝑍}) ∧ 𝑅 ⊆ (𝑅 ∪ {𝑍})) → (𝑐 ↾ 𝑅) Fn 𝑅)
78	74, 76, 77	syl2anc 575	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅) Fn 𝑅)
79		nfv 2005	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑡𝜑
80		nfcv 2944	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑡𝑐
81		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ Ⅎ𝑡𝒫 𝑇
82		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ Ⅎ𝑡ℕ₀
83		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ Ⅎ𝑡𝑠
84	83	nfsum1 14637	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ Ⅎ𝑡Σ𝑡 ∈ 𝑠 (𝑐‘𝑡)
85		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ Ⅎ𝑡𝑛
86	84, 85	nfeq 2956	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ Ⅎ𝑡Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛
87		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ Ⅎ𝑡((0...𝑛) ↑_𝑚 𝑠)
88	86, 87	nfrab 3308	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ Ⅎ𝑡{𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}
89	82, 88	nfmpt 4933	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ Ⅎ𝑡(𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
90	81, 89	nfmpt 4933	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ Ⅎ𝑡(𝑠 ∈ 𝒫 𝑇 ↦ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}))
91	8, 90	nfcxfr 2942	. . . . . . . . . . . . . . . . . . . . 21 ⊢ Ⅎ𝑡𝐶
92		nfcv 2944	. . . . . . . . . . . . . . . . . . . . 21 ⊢ Ⅎ𝑡(𝑅 ∪ {𝑍})
93	91, 92	nffv 6412	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑡(𝐶‘(𝑅 ∪ {𝑍}))
94		nfcv 2944	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑡𝐽
95	93, 94	nffv 6412	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑡((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)
96	80, 95	nfel 2957	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑡 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)
97	79, 96	nfan 1990	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑡(𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
98		fvres 6421	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 ∈ 𝑅 → ((𝑐 ↾ 𝑅)‘𝑡) = (𝑐‘𝑡))
99	98	adantl 469	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → ((𝑐 ↾ 𝑅)‘𝑡) = (𝑐‘𝑡))
100	2	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 0 ∈ ℤ)
101	58	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝐽 − (𝑐‘𝑍)) ∈ ℤ)
102	6	a1i 11	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (0...𝐽) ⊆ ℤ)
103	49	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
104	76	sselda 3792	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ (𝑅 ∪ {𝑍}))
105	103, 104	ffvelrnd 6576	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...𝐽))
106	102, 105	sseldd 3793	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ ℤ)
107	100, 101, 106	3jca 1151	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (0 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ ∧ (𝑐‘𝑡) ∈ ℤ))
108		elfzle1 12561	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑐‘𝑡) ∈ (0...𝐽) → 0 ≤ (𝑐‘𝑡))
109	105, 108	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 0 ≤ (𝑐‘𝑡))
110	19	unssad 3983	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑅 ⊆ 𝑇)
111		ssfi 8413	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑇 ∈ Fin ∧ 𝑅 ⊆ 𝑇) → 𝑅 ∈ Fin)
112	20, 110, 111	syl2anc 575	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑅 ∈ Fin)
113	112	ad2antrr 708	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑅 ∈ Fin)
114		zssre 11644	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ℤ ⊆ ℝ
115	6, 114	sstri 3801	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (0...𝐽) ⊆ ℝ
116	115	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → (0...𝐽) ⊆ ℝ)
117	49	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽))
118	76	sselda 3792	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → 𝑟 ∈ (𝑅 ∪ {𝑍}))
119	117, 118	ffvelrnd 6576	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → (𝑐‘𝑟) ∈ (0...𝐽))
120	116, 119	sseldd 3793	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → (𝑐‘𝑟) ∈ ℝ)
121	120	adantlr 697	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) ∧ 𝑟 ∈ 𝑅) → (𝑐‘𝑟) ∈ ℝ)
122		elfzle1 12561	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑐‘𝑟) ∈ (0...𝐽) → 0 ≤ (𝑐‘𝑟))
123	119, 122	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → 0 ≤ (𝑐‘𝑟))
124	123	adantlr 697	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) ∧ 𝑟 ∈ 𝑅) → 0 ≤ (𝑐‘𝑟))
125		fveq2 6402	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑟 = 𝑡 → (𝑐‘𝑟) = (𝑐‘𝑡))
126		simpr 473	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → 𝑡 ∈ 𝑅)
127	113, 121, 124, 125, 126	fsumge1 14745	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ≤ Σ𝑟 ∈ 𝑅 (𝑐‘𝑟))
128	112	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑅 ∈ Fin)
129	120	recnd 10347	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑟 ∈ 𝑅) → (𝑐‘𝑟) ∈ ℂ)
130	128, 129	fsumcl 14681	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) ∈ ℂ)
131	63	recnd 10347	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) ∈ ℂ)
132	130, 131	pncand 10672	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) + (𝑐‘𝑍)) − (𝑐‘𝑍)) = Σ𝑟 ∈ 𝑅 (𝑐‘𝑟))
133		nfv 2005	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ Ⅎ𝑟(𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
134		nfcv 2944	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ Ⅎ𝑟(𝑐‘𝑍)
135	50	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ 𝑇)
136		dvnprodlem1.zr	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → ¬ 𝑍 ∈ 𝑅)
137	136	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ¬ 𝑍 ∈ 𝑅)
138		fveq2 6402	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑟 = 𝑍 → (𝑐‘𝑟) = (𝑐‘𝑍))
139	133, 134, 128, 135, 137, 129, 138, 131	fsumsplitsn 14691	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑟) = (Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) + (𝑐‘𝑍)))
140	139	eqcomd 2808	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) + (𝑐‘𝑍)) = Σ𝑟 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑟))
141	125	cbvsumv 14643	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ Σ𝑟 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑟) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡)
142	141	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑟) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡))
143	41	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) = {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
144	46, 143	eleqtrd 2883	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐 ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
145		rabid 3300	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑐 ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ↔ (𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∧ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽))
146	144, 145	sylib 209	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∧ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽))
147	146	simprd 485	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽)
148	142, 147	eqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑟) = 𝐽)
149	140, 148	eqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) + (𝑐‘𝑍)) = 𝐽)
150	149	oveq1d 6883	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) + (𝑐‘𝑍)) − (𝑐‘𝑍)) = (𝐽 − (𝑐‘𝑍)))
151	132, 150	eqtr3d 2838	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) = (𝐽 − (𝑐‘𝑍)))
152	151	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) = (𝐽 − (𝑐‘𝑍)))
153	127, 152	breqtrd 4863	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ≤ (𝐽 − (𝑐‘𝑍)))
154	107, 109, 153	jca32 507	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → ((0 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ ∧ (𝑐‘𝑡) ∈ ℤ) ∧ (0 ≤ (𝑐‘𝑡) ∧ (𝑐‘𝑡) ≤ (𝐽 − (𝑐‘𝑍)))))
155		elfz2 12550	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑐‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍))) ↔ ((0 ∈ ℤ ∧ (𝐽 − (𝑐‘𝑍)) ∈ ℤ ∧ (𝑐‘𝑡) ∈ ℤ) ∧ (0 ≤ (𝑐‘𝑡) ∧ (𝑐‘𝑡) ≤ (𝐽 − (𝑐‘𝑍)))))
156	154, 155	sylibr 225	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍))))
157	99, 156	eqeltrd 2881	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → ((𝑐 ↾ 𝑅)‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍))))
158	157	ex 399	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑡 ∈ 𝑅 → ((𝑐 ↾ 𝑅)‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍)))))
159	97, 158	ralrimi 3141	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∀𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍))))
160	78, 159	jca 503	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑐 ↾ 𝑅) Fn 𝑅 ∧ ∀𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍)))))
161		ffnfv 6604	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ↾ 𝑅):𝑅⟶(0...(𝐽 − (𝑐‘𝑍))) ↔ ((𝑐 ↾ 𝑅) Fn 𝑅 ∧ ∀𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) ∈ (0...(𝐽 − (𝑐‘𝑍)))))
162	160, 161	sylibr 225	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅):𝑅⟶(0...(𝐽 − (𝑐‘𝑍))))
163		ovexd 6902	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0...(𝐽 − (𝑐‘𝑍))) ∈ V)
164	20, 110	ssexd 4994	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ V)
165	164	adantr 468	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑅 ∈ V)
166	163, 165	elmapd 8100	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑐 ↾ 𝑅) ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ↔ (𝑐 ↾ 𝑅):𝑅⟶(0...(𝐽 − (𝑐‘𝑍)))))
167	162, 166	mpbird 248	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅) ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅))
168	98	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑡 ∈ 𝑅 → ((𝑐 ↾ 𝑅)‘𝑡) = (𝑐‘𝑡)))
169	97, 168	ralrimi 3141	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∀𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = (𝑐‘𝑡))
170	169	sumeq2d 14649	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = Σ𝑡 ∈ 𝑅 (𝑐‘𝑡))
171	125	cbvsumv 14643	. . . . . . . . . . . . . . . 16 ⊢ Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) = Σ𝑡 ∈ 𝑅 (𝑐‘𝑡)
172	171	eqcomi 2811	. . . . . . . . . . . . . . 15 ⊢ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = Σ𝑟 ∈ 𝑅 (𝑐‘𝑟)
173	172	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = Σ𝑟 ∈ 𝑅 (𝑐‘𝑟))
174	151	idi 2	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑟 ∈ 𝑅 (𝑐‘𝑟) = (𝐽 − (𝑐‘𝑍)))
175	170, 173, 174	3eqtrd 2840	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = (𝐽 − (𝑐‘𝑍)))
176	167, 175	jca 503	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑐 ↾ 𝑅) ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∧ Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = (𝐽 − (𝑐‘𝑍))))
177		eqidd 2803	. . . . . . . . . . . . . . 15 ⊢ (𝑒 = (𝑐 ↾ 𝑅) → 𝑅 = 𝑅)
178		simpl 470	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 = (𝑐 ↾ 𝑅) ∧ 𝑡 ∈ 𝑅) → 𝑒 = (𝑐 ↾ 𝑅))
179	178	fveq1d 6404	. . . . . . . . . . . . . . 15 ⊢ ((𝑒 = (𝑐 ↾ 𝑅) ∧ 𝑡 ∈ 𝑅) → (𝑒‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
180	177, 179	sumeq12rdv 14655	. . . . . . . . . . . . . 14 ⊢ (𝑒 = (𝑐 ↾ 𝑅) → Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡))
181	180	eqeq1d 2804	. . . . . . . . . . . . 13 ⊢ (𝑒 = (𝑐 ↾ 𝑅) → (Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍)) ↔ Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = (𝐽 − (𝑐‘𝑍))))
182	181	elrab 3555	. . . . . . . . . . . 12 ⊢ ((𝑐 ↾ 𝑅) ∈ {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))} ↔ ((𝑐 ↾ 𝑅) ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∧ Σ𝑡 ∈ 𝑅 ((𝑐 ↾ 𝑅)‘𝑡) = (𝐽 − (𝑐‘𝑍))))
183	176, 182	sylibr 225	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅) ∈ {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))})
184		oveq2 6876	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = 𝑅 → ((0...𝑛) ↑_𝑚 𝑠) = ((0...𝑛) ↑_𝑚 𝑅))
185		rabeq 3378	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((0...𝑛) ↑_𝑚 𝑠) = ((0...𝑛) ↑_𝑚 𝑅) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
186	184, 185	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛})
187		sumeq1 14636	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = 𝑅 → Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = Σ𝑡 ∈ 𝑅 (𝑐‘𝑡))
188	187	eqeq1d 2804	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = 𝑅 → (Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛))
189	188	rabbidv 3375	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
190	186, 189	eqtrd 2836	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 = 𝑅 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
191	190	mpteq2dv 4932	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = 𝑅 → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
192	191	adantl 469	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 = 𝑅) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑠) ∣ Σ𝑡 ∈ 𝑠 (𝑐‘𝑡) = 𝑛}) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
193		elpwg 4353	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑅 ∈ V → (𝑅 ∈ 𝒫 𝑇 ↔ 𝑅 ⊆ 𝑇))
194	164, 193	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑅 ∈ 𝒫 𝑇 ↔ 𝑅 ⊆ 𝑇))
195	110, 194	mpbird 248	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ 𝒫 𝑇)
196	26	mptex 6705	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) ∈ V
197	196	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) ∈ V)
198	9, 192, 195, 197	fvmptd 6503	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐶‘𝑅) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
199	198	adantr 468	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐶‘𝑅) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
200		oveq2 6876	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑚 → (0...𝑛) = (0...𝑚))
201	200	oveq1d 6883	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 = 𝑚 → ((0...𝑛) ↑_𝑚 𝑅) = ((0...𝑚) ↑_𝑚 𝑅))
202		rabeq 3378	. . . . . . . . . . . . . . . . . 18 ⊢ (((0...𝑛) ↑_𝑚 𝑅) = ((0...𝑚) ↑_𝑚 𝑅) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
203	201, 202	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = 𝑚 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
204		eqeq2 2813	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 = 𝑚 → (Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚))
205	204	rabbidv 3375	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = 𝑚 → {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚})
206	203, 205	eqtrd 2836	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚})
207	206	cbvmptv 4937	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) = (𝑚 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚})
208	207	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}) = (𝑚 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚}))
209	199, 208	eqtrd 2836	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐶‘𝑅) = (𝑚 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚}))
210		fveq1 6401	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑐 = 𝑒 → (𝑐‘𝑡) = (𝑒‘𝑡))
211	210	sumeq2ad 14651	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑐 = 𝑒 → Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = Σ𝑡 ∈ 𝑅 (𝑒‘𝑡))
212	211	eqeq1d 2804	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = 𝑒 → (Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚 ↔ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚))
213	212	cbvrabv 3385	. . . . . . . . . . . . . . . 16 ⊢ {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚} = {𝑒 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚}
214	213	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚} = {𝑒 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚})
215		oveq2 6876	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → (0...𝑚) = (0...(𝐽 − (𝑐‘𝑍))))
216	215	oveq1d 6883	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → ((0...𝑚) ↑_𝑚 𝑅) = ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅))
217		rabeq 3378	. . . . . . . . . . . . . . . 16 ⊢ (((0...𝑚) ↑_𝑚 𝑅) = ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) → {𝑒 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚} = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚})
218	216, 217	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → {𝑒 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚} = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚})
219		eqeq2 2813	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → (Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚 ↔ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))))
220	219	rabbidv 3375	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = 𝑚} = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))})
221	214, 218, 220	3eqtrd 2840	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (𝐽 − (𝑐‘𝑍)) → {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚} = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))})
222	221	adantl 469	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑚 = (𝐽 − (𝑐‘𝑍))) → {𝑐 ∈ ((0...𝑚) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑚} = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))})
223	58, 65	jca 503	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐽 − (𝑐‘𝑍)) ∈ ℤ ∧ 0 ≤ (𝐽 − (𝑐‘𝑍))))
224		elnn0z 11650	. . . . . . . . . . . . . 14 ⊢ ((𝐽 − (𝑐‘𝑍)) ∈ ℕ₀ ↔ ((𝐽 − (𝑐‘𝑍)) ∈ ℤ ∧ 0 ≤ (𝐽 − (𝑐‘𝑍))))
225	223, 224	sylibr 225	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ ℕ₀)
226		ovex 6900	. . . . . . . . . . . . . . 15 ⊢ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∈ V
227	226	rabex 5001	. . . . . . . . . . . . . 14 ⊢ {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))} ∈ V
228	227	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))} ∈ V)
229	209, 222, 225, 228	fvmptd 6503	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))) = {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))})
230	229	eqcomd 2808	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → {𝑒 ∈ ((0...(𝐽 − (𝑐‘𝑍))) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑒‘𝑡) = (𝐽 − (𝑐‘𝑍))} = ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))
231	183, 230	eleqtrd 2883	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))
232	72, 231	jca 503	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍)))))
233	1, 232	jca 503	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∧ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))))
234		ovexd 6902	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) ∈ V)
235		vex 3390	. . . . . . . . . . 11 ⊢ 𝑐 ∈ V
236	235	resex 5642	. . . . . . . . . 10 ⊢ (𝑐 ↾ 𝑅) ∈ V
237	236	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐 ↾ 𝑅) ∈ V)
238		opeq12 4590	. . . . . . . . . . . 12 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → ⟨𝑘, 𝑑⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
239	238	eqeq2d 2812	. . . . . . . . . . 11 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → (⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ↔ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
240		eleq1 2869	. . . . . . . . . . . . 13 ⊢ (𝑘 = (𝐽 − (𝑐‘𝑍)) → (𝑘 ∈ (0...𝐽) ↔ (𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽)))
241	240	adantr 468	. . . . . . . . . . . 12 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → (𝑘 ∈ (0...𝐽) ↔ (𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽)))
242		simpr 473	. . . . . . . . . . . . 13 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → 𝑑 = (𝑐 ↾ 𝑅))
243		fveq2 6402	. . . . . . . . . . . . . 14 ⊢ (𝑘 = (𝐽 − (𝑐‘𝑍)) → ((𝐶‘𝑅)‘𝑘) = ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))
244	243	adantr 468	. . . . . . . . . . . . 13 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → ((𝐶‘𝑅)‘𝑘) = ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))
245	242, 244	eleq12d 2875	. . . . . . . . . . . 12 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → (𝑑 ∈ ((𝐶‘𝑅)‘𝑘) ↔ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍)))))
246	241, 245	anbi12d 618	. . . . . . . . . . 11 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → ((𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘)) ↔ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))))
247	239, 246	anbi12d 618	. . . . . . . . . 10 ⊢ ((𝑘 = (𝐽 − (𝑐‘𝑍)) ∧ 𝑑 = (𝑐 ↾ 𝑅)) → ((⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘))) ↔ (⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∧ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍)))))))
248	247	spc2egv 3484	. . . . . . . . 9 ⊢ (((𝐽 − (𝑐‘𝑍)) ∈ V ∧ (𝑐 ↾ 𝑅) ∈ V) → ((⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∧ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))) → ∃𝑘∃𝑑(⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘)))))
249	234, 237, 248	syl2anc 575	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∧ ((𝐽 − (𝑐‘𝑍)) ∈ (0...𝐽) ∧ (𝑐 ↾ 𝑅) ∈ ((𝐶‘𝑅)‘(𝐽 − (𝑐‘𝑍))))) → ∃𝑘∃𝑑(⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘)))))
250	233, 249	mpd 15	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ∃𝑘∃𝑑(⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘))))
251		eliunxp 5455	. . . . . . 7 ⊢ (⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ ∃𝑘∃𝑑(⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨𝑘, 𝑑⟩ ∧ (𝑘 ∈ (0...𝐽) ∧ 𝑑 ∈ ((𝐶‘𝑅)‘𝑘))))
252	250, 251	sylibr 225	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
253		dvnprodlem1.d	. . . . . 6 ⊢ 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
254	252, 253	fmptd 6600	. . . . 5 ⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)⟶∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
255	95	nfcri 2938	. . . . . . . . . . . 12 ⊢ Ⅎ𝑡 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)
256	96, 255	nfan 1990	. . . . . . . . . . 11 ⊢ Ⅎ𝑡(𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
257	79, 256	nfan 1990	. . . . . . . . . 10 ⊢ Ⅎ𝑡(𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)))
258		nfv 2005	. . . . . . . . . 10 ⊢ Ⅎ𝑡(𝐷‘𝑐) = (𝐷‘𝑒)
259	257, 258	nfan 1990	. . . . . . . . 9 ⊢ Ⅎ𝑡((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒))
260	99	eqcomd 2808	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
261	260	adantlrr 703	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
262	261	adantlr 697	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
263	253	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
264		opex 5116	. . . . . . . . . . . . . . . . . . . 20 ⊢ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ V
265	264	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ ∈ V)
266	263, 265	fvmpt2d 6508	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐷‘𝑐) = ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)
267	266	fveq2d 6406	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (2^nd ‘(𝐷‘𝑐)) = (2^nd ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
268	267	fveq1d 6404	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((2^nd ‘(𝐷‘𝑐))‘𝑡) = ((2^nd ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)‘𝑡))
269		ovex 6900	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 − (𝑐‘𝑍)) ∈ V
270	269, 236	op2nd 7401	. . . . . . . . . . . . . . . . . 18 ⊢ (2^nd ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩) = (𝑐 ↾ 𝑅)
271	270	fveq1i 6403	. . . . . . . . . . . . . . . . 17 ⊢ ((2^nd ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡)
272	271	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((2^nd ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩)‘𝑡) = ((𝑐 ↾ 𝑅)‘𝑡))
273	268, 272	eqtr2d 2837	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ((𝑐 ↾ 𝑅)‘𝑡) = ((2^nd ‘(𝐷‘𝑐))‘𝑡))
274	273	adantrr 699	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → ((𝑐 ↾ 𝑅)‘𝑡) = ((2^nd ‘(𝐷‘𝑐))‘𝑡))
275	274	ad2antrr 708	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → ((𝑐 ↾ 𝑅)‘𝑡) = ((2^nd ‘(𝐷‘𝑐))‘𝑡))
276		simpr 473	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐷‘𝑐) = (𝐷‘𝑒))
277	253	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
278		fveq1 6401	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑐 = 𝑒 → (𝑐‘𝑍) = (𝑒‘𝑍))
279	278	oveq2d 6884	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑐 = 𝑒 → (𝐽 − (𝑐‘𝑍)) = (𝐽 − (𝑒‘𝑍)))
280		reseq1 5585	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑐 = 𝑒 → (𝑐 ↾ 𝑅) = (𝑒 ↾ 𝑅))
281	279, 280	opeq12d 4596	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑐 = 𝑒 → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩)
282	281	adantl 469	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ 𝑐 = 𝑒) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩)
283		simpr 473	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
284		opex 5116	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩ ∈ V
285	284	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩ ∈ V)
286	277, 282, 283, 285	fvmptd 6503	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐷‘𝑒) = ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩)
287	286	adantr 468	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐷‘𝑒) = ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩)
288	276, 287	eqtrd 2836	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐷‘𝑐) = ⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩)
289	288	fveq2d 6406	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (2^nd ‘(𝐷‘𝑐)) = (2^nd ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩))
290	289	adantlrl 702	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (2^nd ‘(𝐷‘𝑐)) = (2^nd ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩))
291	290	adantr 468	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → (2^nd ‘(𝐷‘𝑐)) = (2^nd ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩))
292		ovex 6900	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 − (𝑒‘𝑍)) ∈ V
293		vex 3390	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑒 ∈ V
294	293	resex 5642	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑒 ↾ 𝑅) ∈ V
295	292, 294	op2nd 7401	. . . . . . . . . . . . . . . . 17 ⊢ (2^nd ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩) = (𝑒 ↾ 𝑅)
296	295	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → (2^nd ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩) = (𝑒 ↾ 𝑅))
297	291, 296	eqtrd 2836	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → (2^nd ‘(𝐷‘𝑐)) = (𝑒 ↾ 𝑅))
298	297	fveq1d 6404	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘(𝐷‘𝑐))‘𝑡) = ((𝑒 ↾ 𝑅)‘𝑡))
299		fvres 6421	. . . . . . . . . . . . . . 15 ⊢ (𝑡 ∈ 𝑅 → ((𝑒 ↾ 𝑅)‘𝑡) = (𝑒‘𝑡))
300	299	adantl 469	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → ((𝑒 ↾ 𝑅)‘𝑡) = (𝑒‘𝑡))
301	298, 300	eqtrd 2836	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘(𝐷‘𝑐))‘𝑡) = (𝑒‘𝑡))
302	262, 275, 301	3eqtrd 2840	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = (𝑒‘𝑡))
303	302	adantlr 697	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = (𝑒‘𝑡))
304		simpl 470	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})))
305		elunnel1 3947	. . . . . . . . . . . . . 14 ⊢ ((𝑡 ∈ (𝑅 ∪ {𝑍}) ∧ ¬ 𝑡 ∈ 𝑅) → 𝑡 ∈ {𝑍})
306		elsni 4381	. . . . . . . . . . . . . 14 ⊢ (𝑡 ∈ {𝑍} → 𝑡 = 𝑍)
307	305, 306	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ (𝑅 ∪ {𝑍}) ∧ ¬ 𝑡 ∈ 𝑅) → 𝑡 = 𝑍)
308	307	adantll 696	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → 𝑡 = 𝑍)
309		simpr 473	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 = 𝑍) → 𝑡 = 𝑍)
310	309	fveq2d 6406	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 = 𝑍) → (𝑐‘𝑡) = (𝑐‘𝑍))
311	3	nn0cnd 11613	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐽 ∈ ℂ)
312	311	adantr 468	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐽 ∈ ℂ)
313	312, 131	nncand 10676	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝐽 − (𝑐‘𝑍))) = (𝑐‘𝑍))
314	313	eqcomd 2808	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑐‘𝑍) = (𝐽 − (𝐽 − (𝑐‘𝑍))))
315	314	adantrr 699	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → (𝑐‘𝑍) = (𝐽 − (𝐽 − (𝑐‘𝑍))))
316	315	adantr 468	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝑐‘𝑍) = (𝐽 − (𝐽 − (𝑐‘𝑍))))
317	266	fveq2d 6406	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (1^st ‘(𝐷‘𝑐)) = (1^st ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
318	269, 236	op1st 7400	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1^st ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩) = (𝐽 − (𝑐‘𝑍))
319	318	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (1^st ‘⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩) = (𝐽 − (𝑐‘𝑍)))
320	317, 319	eqtr2d 2837	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝑐‘𝑍)) = (1^st ‘(𝐷‘𝑐)))
321	320	oveq2d 6884	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝐽 − (𝑐‘𝑍))) = (𝐽 − (1^st ‘(𝐷‘𝑐))))
322	321	adantrr 699	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → (𝐽 − (𝐽 − (𝑐‘𝑍))) = (𝐽 − (1^st ‘(𝐷‘𝑐))))
323	322	adantr 468	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐽 − (𝐽 − (𝑐‘𝑍))) = (𝐽 − (1^st ‘(𝐷‘𝑐))))
324		fveq2 6402	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐷‘𝑐) = (𝐷‘𝑒) → (1^st ‘(𝐷‘𝑐)) = (1^st ‘(𝐷‘𝑒)))
325	324	adantl 469	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (1^st ‘(𝐷‘𝑐)) = (1^st ‘(𝐷‘𝑒)))
326	286	fveq2d 6406	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (1^st ‘(𝐷‘𝑒)) = (1^st ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩))
327	326	adantr 468	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (1^st ‘(𝐷‘𝑒)) = (1^st ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩))
328	292, 294	op1st 7400	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1^st ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩) = (𝐽 − (𝑒‘𝑍))
329	328	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (1^st ‘⟨(𝐽 − (𝑒‘𝑍)), (𝑒 ↾ 𝑅)⟩) = (𝐽 − (𝑒‘𝑍)))
330	325, 327, 329	3eqtrd 2840	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (1^st ‘(𝐷‘𝑐)) = (𝐽 − (𝑒‘𝑍)))
331	330	oveq2d 6884	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐽 − (1^st ‘(𝐷‘𝑐))) = (𝐽 − (𝐽 − (𝑒‘𝑍))))
332	311	adantr 468	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝐽 ∈ ℂ)
333		zsscn 11645	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ℤ ⊆ ℂ
334	6, 333	sstri 3801	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...𝐽) ⊆ ℂ
335	334	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (0...𝐽) ⊆ ℂ)
336		eleq1w 2864	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑐 = 𝑒 → (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↔ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)))
337	336	anbi2d 616	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑐 = 𝑒 → ((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ↔ (𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))))
338		feq1 6231	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑐 = 𝑒 → (𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽) ↔ 𝑒:(𝑅 ∪ {𝑍})⟶(0...𝐽)))
339	337, 338	imbi12d 335	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑐 = 𝑒 → (((𝜑 ∧ 𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑐:(𝑅 ∪ {𝑍})⟶(0...𝐽)) ↔ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑒:(𝑅 ∪ {𝑍})⟶(0...𝐽))))
340	339, 49	chvarv 2436	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑒:(𝑅 ∪ {𝑍})⟶(0...𝐽))
341	54	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑍 ∈ (𝑅 ∪ {𝑍}))
342	340, 341	ffvelrnd 6576	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑒‘𝑍) ∈ (0...𝐽))
343	335, 342	sseldd 3793	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝑒‘𝑍) ∈ ℂ)
344	332, 343	nncand 10676	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → (𝐽 − (𝐽 − (𝑒‘𝑍))) = (𝑒‘𝑍))
345	344	adantr 468	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐽 − (𝐽 − (𝑒‘𝑍))) = (𝑒‘𝑍))
346		eqidd 2803	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝑒‘𝑍) = (𝑒‘𝑍))
347	331, 345, 346	3eqtrd 2840	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐽 − (1^st ‘(𝐷‘𝑐))) = (𝑒‘𝑍))
348	347	adantlrl 702	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝐽 − (1^st ‘(𝐷‘𝑐))) = (𝑒‘𝑍))
349	316, 323, 348	3eqtrd 2840	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝑐‘𝑍) = (𝑒‘𝑍))
350	349	adantr 468	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 = 𝑍) → (𝑐‘𝑍) = (𝑒‘𝑍))
351		fveq2 6402	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑍 → (𝑒‘𝑡) = (𝑒‘𝑍))
352	351	eqcomd 2808	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑍 → (𝑒‘𝑍) = (𝑒‘𝑡))
353	352	adantl 469	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 = 𝑍) → (𝑒‘𝑍) = (𝑒‘𝑡))
354	310, 350, 353	3eqtrd 2840	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 = 𝑍) → (𝑐‘𝑡) = (𝑒‘𝑡))
355	354	adantlr 697	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 = 𝑍) → (𝑐‘𝑡) = (𝑒‘𝑡))
356	304, 308, 355	syl2anc 575	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = (𝑒‘𝑡))
357	303, 356	pm2.61dan 838	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (𝑐‘𝑡) = (𝑒‘𝑡))
358	357	ex 399	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝑡 ∈ (𝑅 ∪ {𝑍}) → (𝑐‘𝑡) = (𝑒‘𝑡)))
359	259, 358	ralrimi 3141	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → ∀𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = (𝑒‘𝑡))
360	74	adantrr 699	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → 𝑐 Fn (𝑅 ∪ {𝑍}))
361	360	adantr 468	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → 𝑐 Fn (𝑅 ∪ {𝑍}))
362	340	ffnd 6251	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)) → 𝑒 Fn (𝑅 ∪ {𝑍}))
363	362	adantrl 698	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → 𝑒 Fn (𝑅 ∪ {𝑍}))
364	363	adantr 468	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → 𝑒 Fn (𝑅 ∪ {𝑍}))
365		eqfnfv 6527	. . . . . . . . 9 ⊢ ((𝑐 Fn (𝑅 ∪ {𝑍}) ∧ 𝑒 Fn (𝑅 ∪ {𝑍})) → (𝑐 = 𝑒 ↔ ∀𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = (𝑒‘𝑡)))
366	361, 364, 365	syl2anc 575	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → (𝑐 = 𝑒 ↔ ∀𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = (𝑒‘𝑡)))
367	359, 366	mpbird 248	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) ∧ (𝐷‘𝑐) = (𝐷‘𝑒)) → 𝑐 = 𝑒)
368	367	ex 399	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))) → ((𝐷‘𝑐) = (𝐷‘𝑒) → 𝑐 = 𝑒))
369	368	ralrimivva 3155	. . . . 5 ⊢ (𝜑 → ∀𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)∀𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)((𝐷‘𝑐) = (𝐷‘𝑒) → 𝑐 = 𝑒))
370	254, 369	jca 503	. . . 4 ⊢ (𝜑 → (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)⟶∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ ∀𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)∀𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)((𝐷‘𝑐) = (𝐷‘𝑒) → 𝑐 = 𝑒)))
371		dff13 6730	. . . 4 ⊢ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)⟶∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ ∀𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)∀𝑒 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)((𝐷‘𝑐) = (𝐷‘𝑒) → 𝑐 = 𝑒)))
372	370, 371	sylibr 225	. . 3 ⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
373		eliun 4709	. . . . . . . . . . 11 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
374	373	biimpi 207	. . . . . . . . . 10 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
375	374	adantl 469	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
376		nfv 2005	. . . . . . . . . . 11 ⊢ Ⅎ𝑘𝜑
377		nfcv 2944	. . . . . . . . . . . 12 ⊢ Ⅎ𝑘𝑝
378		nfiu1 4735	. . . . . . . . . . . 12 ⊢ Ⅎ𝑘∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))
379	377, 378	nfel 2957	. . . . . . . . . . 11 ⊢ Ⅎ𝑘 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))
380	376, 379	nfan 1990	. . . . . . . . . 10 ⊢ Ⅎ𝑘(𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
381		nfv 2005	. . . . . . . . . 10 ⊢ Ⅎ𝑘(𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽}
382		nfv 2005	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑡 𝑘 ∈ (0...𝐽)
383		nfcv 2944	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑡𝑝
384		nfcv 2944	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑡{𝑘}
385		nfcv 2944	. . . . . . . . . . . . . . . . . . . . 21 ⊢ Ⅎ𝑡𝑅
386	91, 385	nffv 6412	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑡(𝐶‘𝑅)
387		nfcv 2944	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑡𝑘
388	386, 387	nffv 6412	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑡((𝐶‘𝑅)‘𝑘)
389	384, 388	nfxp 5337	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑡({𝑘} × ((𝐶‘𝑅)‘𝑘))
390	383, 389	nfel 2957	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑡 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))
391	79, 382, 390	nf3an 1993	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑡(𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)))
392		0zd 11649	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 0 ∈ ℤ)
393	4	adantr 468	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝐽 ∈ ℤ)
394	393	3ad2antl1 1229	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝐽 ∈ ℤ)
395		iftrue 4279	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 ∈ 𝑅 → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = ((2^nd ‘𝑝)‘𝑡))
396	395	adantl 469	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = ((2^nd ‘𝑝)‘𝑡))
397		fzssz 12560	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0...𝑘) ⊆ ℤ
398	397	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → (0...𝑘) ⊆ ℤ)
399		simp1 1159	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝜑)
400		simp2 1160	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑘 ∈ (0...𝐽))
401		xp2nd 7425	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (2^nd ‘𝑝) ∈ ((𝐶‘𝑅)‘𝑘))
402	401	3ad2ant3 1158	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) ∈ ((𝐶‘𝑅)‘𝑘))
403	198	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐶‘𝑅) = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛}))
404		oveq2 6876	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑛 = 𝑘 → (0...𝑛) = (0...𝑘))
405	404	oveq1d 6883	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑛 = 𝑘 → ((0...𝑛) ↑_𝑚 𝑅) = ((0...𝑘) ↑_𝑚 𝑅))
406		rabeq 3378	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((0...𝑛) ↑_𝑚 𝑅) = ((0...𝑘) ↑_𝑚 𝑅) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
407	405, 406	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛})
408		eqeq2 2813	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑛 = 𝑘 → (Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛 ↔ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘))
409	408	rabbidv 3375	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
410	407, 409	eqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑛 = 𝑘 → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
411	410	adantl 469	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑛 = 𝑘) → {𝑐 ∈ ((0...𝑛) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑛} = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
412		elfznn0 12650	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℕ₀)
413	412	adantl 469	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℕ₀)
414		ovex 6900	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((0...𝑘) ↑_𝑚 𝑅) ∈ V
415	414	rabex 5001	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ V
416	415	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ∈ V)
417	403, 411, 413, 416	fvmptd 6503	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → ((𝐶‘𝑅)‘𝑘) = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
418	417	3adant3 1155	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝐶‘𝑅)‘𝑘) = {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
419	402, 418	eleqtrd 2883	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) ∈ {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘})
420		elrabi 3550	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((2^nd ‘𝑝) ∈ {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} → (2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅))
421	420	3ad2ant3 1158	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ (2^nd ‘𝑝) ∈ {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘}) → (2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅))
422	399, 400, 419, 421	syl3anc 1483	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅))
423		elmapi 8108	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅) → (2^nd ‘𝑝):𝑅⟶(0...𝑘))
424	422, 423	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝):𝑅⟶(0...𝑘))
425	424	adantr 468	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (2^nd ‘𝑝):𝑅⟶(0...𝑘))
426	425	ffvelrnda 6575	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘))
427	398, 426	sseldd 3793	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ ℤ)
428	396, 427	eqeltrd 2881	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ)
429		simpl 470	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})))
430	307	adantll 696	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → 𝑡 = 𝑍)
431		simpr 473	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑡 = 𝑍) → 𝑡 = 𝑍)
432	136	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑡 = 𝑍) → ¬ 𝑍 ∈ 𝑅)
433	431, 432	eqneltrd 2900	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑡 = 𝑍) → ¬ 𝑡 ∈ 𝑅)
434	433	iffalsed 4284	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
435	434	3ad2antl1 1229	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
436	4	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑡 = 𝑍) → 𝐽 ∈ ℤ)
437	436	3ad2antl1 1229	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → 𝐽 ∈ ℤ)
438		xp1st 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ {𝑘})
439		elsni 4381	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((1^st ‘𝑝) ∈ {𝑘} → (1^st ‘𝑝) = 𝑘)
440	438, 439	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) = 𝑘)
441	440	adantl 469	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) = 𝑘)
442	6	sseli 3788	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℤ)
443	442	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑘 ∈ ℤ)
444	441, 443	eqeltrd 2881	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ ℤ)
445	444	3adant1 1153	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ ℤ)
446	445	adantr 468	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → (1^st ‘𝑝) ∈ ℤ)
447	437, 446	zsubcld 11747	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → (𝐽 − (1^st ‘𝑝)) ∈ ℤ)
448	435, 447	eqeltrd 2881	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ)
449	448	adantlr 697	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ)
450	429, 430, 449	syl2anc 575	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ)
451	428, 450	pm2.61dan 838	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ)
452	392, 394, 451	3jca 1151	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ))
453	424	ffvelrnda 6575	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘))
454		elfzle1 12561	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) → 0 ≤ ((2^nd ‘𝑝)‘𝑡))
455	453, 454	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 0 ≤ ((2^nd ‘𝑝)‘𝑡))
456	395	eqcomd 2808	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 ∈ 𝑅 → ((2^nd ‘𝑝)‘𝑡) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
457	456	adantl 469	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
458	455, 457	breqtrd 4863	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
459	458	adantlr 697	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → 0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
460		simpll 774	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → (𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))))
461		elfzle2 12562	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ≤ 𝐽)
462		elfzel2 12557	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑘 ∈ (0...𝐽) → 𝐽 ∈ ℤ)
463	462	zred 11742	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑘 ∈ (0...𝐽) → 𝐽 ∈ ℝ)
464	115	sseli 3788	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℝ)
465	463, 464	subge0d 10896	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑘 ∈ (0...𝐽) → (0 ≤ (𝐽 − 𝑘) ↔ 𝑘 ≤ 𝐽))
466	461, 465	mpbird 248	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑘 ∈ (0...𝐽) → 0 ≤ (𝐽 − 𝑘))
467	466	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑡 = 𝑍) → 0 ≤ (𝐽 − 𝑘))
468	467	3ad2antl2 1230	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → 0 ≤ (𝐽 − 𝑘))
469	399, 433	sylan 571	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → ¬ 𝑡 ∈ 𝑅)
470	469	iffalsed 4284	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
471	441	3adant1 1153	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) = 𝑘)
472	471	oveq2d 6884	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) = (𝐽 − 𝑘))
473	472	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → (𝐽 − (1^st ‘𝑝)) = (𝐽 − 𝑘))
474	470, 473	eqtr2d 2837	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → (𝐽 − 𝑘) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
475	468, 474	breqtrd 4863	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → 0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
476	460, 430, 475	syl2anc 575	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → 0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
477	459, 476	pm2.61dan 838	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
478		simpl2 1237	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → 𝑘 ∈ (0...𝐽))
479	397	sseli 3788	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) → ((2^nd ‘𝑝)‘𝑡) ∈ ℤ)
480	479	zred 11742	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) → ((2^nd ‘𝑝)‘𝑡) ∈ ℝ)
481	480	adantr 468	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → ((2^nd ‘𝑝)‘𝑡) ∈ ℝ)
482	464	adantl 469	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℝ)
483	463	adantl 469	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → 𝐽 ∈ ℝ)
484		elfzle2 12562	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) → ((2^nd ‘𝑝)‘𝑡) ≤ 𝑘)
485	484	adantr 468	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → ((2^nd ‘𝑝)‘𝑡) ≤ 𝑘)
486	461	adantl 469	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ≤ 𝐽)
487	481, 482, 483, 485, 486	letrd 10473	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((2^nd ‘𝑝)‘𝑡) ∈ (0...𝑘) ∧ 𝑘 ∈ (0...𝐽)) → ((2^nd ‘𝑝)‘𝑡) ≤ 𝐽)
488	453, 478, 487	syl2anc 575	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ≤ 𝐽)
489	488	adantlr 697	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ≤ 𝐽)
490	396, 489	eqbrtrd 4859	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)
491	474	eqcomd 2808	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = (𝐽 − 𝑘))
492	413	nn0ge0d 11614	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 0 ≤ 𝑘)
493	463	adantl 469	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝐽 ∈ ℝ)
494	464	adantl 469	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → 𝑘 ∈ ℝ)
495	493, 494	subge02d 10898	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (0 ≤ 𝑘 ↔ (𝐽 − 𝑘) ≤ 𝐽))
496	492, 495	mpbid 223	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽)) → (𝐽 − 𝑘) ≤ 𝐽)
497	496	adantr 468	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽)) ∧ 𝑡 = 𝑍) → (𝐽 − 𝑘) ≤ 𝐽)
498	497	3adantl3 1202	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → (𝐽 − 𝑘) ≤ 𝐽)
499	491, 498	eqbrtrd 4859	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 = 𝑍) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)
500	460, 430, 499	syl2anc 575	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ ¬ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)
501	490, 500	pm2.61dan 838	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)
502	452, 477, 501	jca32 507	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ) ∧ (0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∧ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)))
503		elfz2 12550	. . . . . . . . . . . . . . . . 17 ⊢ (if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ (0...𝐽) ↔ ((0 ∈ ℤ ∧ 𝐽 ∈ ℤ ∧ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℤ) ∧ (0 ≤ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∧ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ≤ 𝐽)))
504	502, 503	sylibr 225	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ (0...𝐽))
505		eqid 2802	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
506	391, 504, 505	fmptdf 6603	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))):(𝑅 ∪ {𝑍})⟶(0...𝐽))
507		ovexd 6902	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (0...𝐽) ∈ V)
508	399, 22	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑅 ∪ {𝑍}) ∈ V)
509	507, 508	elmapd 8100	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ↔ (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))):(𝑅 ∪ {𝑍})⟶(0...𝐽)))
510	506, 509	mpbird 248	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})))
511		eqidd 2803	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))) = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))))
512		eleq1w 2864	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑟 = 𝑡 → (𝑟 ∈ 𝑅 ↔ 𝑡 ∈ 𝑅))
513		fveq2 6402	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑟 = 𝑡 → ((2^nd ‘𝑝)‘𝑟) = ((2^nd ‘𝑝)‘𝑡))
514	512, 513	ifbieq1d 4296	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑟 = 𝑡 → if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
515	514	adantl 469	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) ∧ 𝑟 = 𝑡) → if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
516		simpr 473	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → 𝑡 ∈ (𝑅 ∪ {𝑍}))
517	511, 515, 516, 451	fvmptd 6503	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ (𝑅 ∪ {𝑍})) → ((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
518	517	ex 399	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) → ((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))))
519	391, 518	ralrimi 3141	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∀𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
520	519	sumeq2d 14649	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))
521		nfcv 2944	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑡if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝)))
522	399, 112	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑅 ∈ Fin)
523	399, 50	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑍 ∈ 𝑇)
524	399, 136	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ¬ 𝑍 ∈ 𝑅)
525	395	adantl 469	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = ((2^nd ‘𝑝)‘𝑡))
526	453, 479	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ ℤ)
527	526	zcnd 11743	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → ((2^nd ‘𝑝)‘𝑡) ∈ ℂ)
528	525, 527	eqeltrd 2881	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑡 ∈ 𝑅) → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) ∈ ℂ)
529		eleq1 2869	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑍 → (𝑡 ∈ 𝑅 ↔ 𝑍 ∈ 𝑅))
530		fveq2 6402	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑍 → ((2^nd ‘𝑝)‘𝑡) = ((2^nd ‘𝑝)‘𝑍))
531	529, 530	ifbieq1d 4296	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑍 → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))))
532	136	adantr 468	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ¬ 𝑍 ∈ 𝑅)
533	532	iffalsed 4284	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
534	533	3adant2 1154	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
535	4	3ad2ant1 1156	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝐽 ∈ ℤ)
536	535, 445	zsubcld 11747	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) ∈ ℤ)
537	536	zcnd 11743	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐽 − (1^st ‘𝑝)) ∈ ℂ)
538	534, 537	eqeltrd 2881	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))) ∈ ℂ)
539	391, 521, 522, 523, 524, 528, 531, 538	fsumsplitsn 14691	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = (Σ𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) + if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝)))))
540	395	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ 𝑅 → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = ((2^nd ‘𝑝)‘𝑡)))
541	391, 540	ralrimi 3141	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∀𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = ((2^nd ‘𝑝)‘𝑡))
542	541	sumeq2d 14649	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡))
543		eqidd 2803	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑐 = (2^nd ‘𝑝) → 𝑅 = 𝑅)
544		simpl 470	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑐 = (2^nd ‘𝑝) ∧ 𝑡 ∈ 𝑅) → 𝑐 = (2^nd ‘𝑝))
545	544	fveq1d 6404	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑐 = (2^nd ‘𝑝) ∧ 𝑡 ∈ 𝑅) → (𝑐‘𝑡) = ((2^nd ‘𝑝)‘𝑡))
546	543, 545	sumeq12rdv 14655	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑐 = (2^nd ‘𝑝) → Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡))
547	546	eqeq1d 2804	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑐 = (2^nd ‘𝑝) → (Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘 ↔ Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡) = 𝑘))
548	547	elrab 3555	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2^nd ‘𝑝) ∈ {𝑐 ∈ ((0...𝑘) ↑_𝑚 𝑅) ∣ Σ𝑡 ∈ 𝑅 (𝑐‘𝑡) = 𝑘} ↔ ((2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅) ∧ Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡) = 𝑘))
549	419, 548	sylib 209	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((2^nd ‘𝑝) ∈ ((0...𝑘) ↑_𝑚 𝑅) ∧ Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡) = 𝑘))
550	549	simprd 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ 𝑅 ((2^nd ‘𝑝)‘𝑡) = 𝑘)
551	542, 550	eqtrd 2836	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = 𝑘)
552	524	iffalsed 4284	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
553	552, 472	eqtrd 2836	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝))) = (𝐽 − 𝑘))
554	551, 553	oveq12d 6886	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (Σ𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) + if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝)))) = (𝑘 + (𝐽 − 𝑘)))
555	334	sseli 3788	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (0...𝐽) → 𝑘 ∈ ℂ)
556	555	3ad2ant2 1157	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑘 ∈ ℂ)
557	399, 311	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝐽 ∈ ℂ)
558	556, 557	pncan3d 10674	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 + (𝐽 − 𝑘)) = 𝐽)
559	554, 558	eqtrd 2836	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (Σ𝑡 ∈ 𝑅 if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) + if(𝑍 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑍), (𝐽 − (1^st ‘𝑝)))) = 𝐽)
560	520, 539, 559	3eqtrd 2840	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = 𝐽)
561	510, 560	jca 503	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∧ Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = 𝐽))
562		eleq1w 2864	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑟 → (𝑡 ∈ 𝑅 ↔ 𝑟 ∈ 𝑅))
563		fveq2 6402	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑟 → ((2^nd ‘𝑝)‘𝑡) = ((2^nd ‘𝑝)‘𝑟))
564	562, 563	ifbieq1d 4296	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑟 → if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))) = if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))
565	564	cbvmptv 4937	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))
566	565	eqeq2i 2814	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ↔ 𝑐 = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))))
567	566	biimpi 207	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) → 𝑐 = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))))
568		fveq1 6401	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))) → (𝑐‘𝑡) = ((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡))
569	568	sumeq2ad 14651	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡))
570	567, 569	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) → Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡))
571	570	eqeq1d 2804	. . . . . . . . . . . . . 14 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) → (Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽 ↔ Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = 𝐽))
572	571	elrab 3555	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} ↔ ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∧ Σ𝑡 ∈ (𝑅 ∪ {𝑍})((𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))))‘𝑡) = 𝐽))
573	561, 572	sylibr 225	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
574	573	3exp 1141	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})))
575	574	adantr 468	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})))
576	380, 381, 575	rexlimd 3210	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽}))
577	375, 576	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽})
578	41	eqcomd 2808	. . . . . . . . 9 ⊢ (𝜑 → {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} = ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
579	578	adantr 468	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → {𝑐 ∈ ((0...𝐽) ↑_𝑚 (𝑅 ∪ {𝑍})) ∣ Σ𝑡 ∈ (𝑅 ∪ {𝑍})(𝑐‘𝑡) = 𝐽} = ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
580	577, 579	eleqtrd 2883	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽))
581	253	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝐷 = (𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ↦ ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩))
582		simpr 473	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))))
583	565	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))))
584	582, 583	eqtrd 2836	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → 𝑐 = (𝑟 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝)))))
585		simpr 473	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑟 = 𝑍) → 𝑟 = 𝑍)
586	136	adantr 468	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑟 = 𝑍) → ¬ 𝑍 ∈ 𝑅)
587	585, 586	eqneltrd 2900	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑟 = 𝑍) → ¬ 𝑟 ∈ 𝑅)
588	587	iffalsed 4284	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑟 = 𝑍) → if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
589	588	adantlr 697	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) ∧ 𝑟 = 𝑍) → if(𝑟 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑟), (𝐽 − (1^st ‘𝑝))) = (𝐽 − (1^st ‘𝑝)))
590	54	adantr 468	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → 𝑍 ∈ (𝑅 ∪ {𝑍}))
591		ovexd 6902	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝐽 − (1^st ‘𝑝)) ∈ V)
592	584, 589, 590, 591	fvmptd 6503	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝑐‘𝑍) = (𝐽 − (1^st ‘𝑝)))
593	592	oveq2d 6884	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝐽 − (𝑐‘𝑍)) = (𝐽 − (𝐽 − (1^st ‘𝑝))))
594	593	adantlr 697	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝐽 − (𝑐‘𝑍)) = (𝐽 − (𝐽 − (1^st ‘𝑝))))
595	311	ad2antrr 708	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → 𝐽 ∈ ℂ)
596		nfv 2005	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑘(1^st ‘𝑝) ∈ (0...𝐽)
597		simpl 470	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑘 ∈ (0...𝐽))
598		simpr 473	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (0...𝐽) ∧ (1^st ‘𝑝) = 𝑘) → (1^st ‘𝑝) = 𝑘)
599		simpl 470	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (0...𝐽) ∧ (1^st ‘𝑝) = 𝑘) → 𝑘 ∈ (0...𝐽))
600	598, 599	eqeltrd 2881	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (0...𝐽) ∧ (1^st ‘𝑝) = 𝑘) → (1^st ‘𝑝) ∈ (0...𝐽))
601	597, 441, 600	syl2anc 575	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (1^st ‘𝑝) ∈ (0...𝐽))
602	601	ex 399	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽)))
603	602	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽))))
604	379, 596, 603	rexlimd 3210	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽)))
605	374, 604	mpd 15	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ (0...𝐽))
606	6	sseli 3788	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘𝑝) ∈ (0...𝐽) → (1^st ‘𝑝) ∈ ℤ)
607	605, 606	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ ℤ)
608	607	zcnd 11743	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (1^st ‘𝑝) ∈ ℂ)
609	608	ad2antlr 709	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (1^st ‘𝑝) ∈ ℂ)
610	595, 609	nncand 10676	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝐽 − (𝐽 − (1^st ‘𝑝))) = (1^st ‘𝑝))
611	594, 610	eqtrd 2836	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝐽 − (𝑐‘𝑍)) = (1^st ‘𝑝))
612		reseq1 5585	. . . . . . . . . . . 12 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) → (𝑐 ↾ 𝑅) = ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ↾ 𝑅))
613	612	adantl 469	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝑐 ↾ 𝑅) = ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ↾ 𝑅))
614	75	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → 𝑅 ⊆ (𝑅 ∪ {𝑍}))
615	614	resmptd 5651	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → ((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ↾ 𝑅) = (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))))
616		nfv 2005	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘(𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝)
617	395	mpteq2ia 4927	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (𝑡 ∈ 𝑅 ↦ ((2^nd ‘𝑝)‘𝑡))
618	617	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (𝑡 ∈ 𝑅 ↦ ((2^nd ‘𝑝)‘𝑡)))
619	424	feqmptd 6464	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (2^nd ‘𝑝) = (𝑡 ∈ 𝑅 ↦ ((2^nd ‘𝑝)‘𝑡)))
620	618, 619	eqtr4d 2839	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐽) ∧ 𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝))
621	620	3exp 1141	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝))))
622	621	adantr 468	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝))))
623	380, 616, 622	rexlimd 3210	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝)))
624	375, 623	mpd 15	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝))
625	624	adantr 468	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝑡 ∈ 𝑅 ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) = (2^nd ‘𝑝))
626	613, 615, 625	3eqtrd 2840	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → (𝑐 ↾ 𝑅) = (2^nd ‘𝑝))
627	611, 626	opeq12d 4596	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) ∧ 𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) → ⟨(𝐽 − (𝑐‘𝑍)), (𝑐 ↾ 𝑅)⟩ = ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩)
628		opex 5116	. . . . . . . . . 10 ⊢ ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ ∈ V
629	628	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ ∈ V)
630	581, 627, 580, 629	fvmptd 6503	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝐷‘(𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))) = ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩)
631		nfv 2005	. . . . . . . . . 10 ⊢ Ⅎ𝑘⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝
632		1st2nd2 7431	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → 𝑝 = ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩)
633	632	eqcomd 2808	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝)
634	633	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝))
635	634	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (𝑘 ∈ (0...𝐽) → (𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝)))
636	380, 631, 635	rexlimd 3210	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → (∃𝑘 ∈ (0...𝐽)𝑝 ∈ ({𝑘} × ((𝐶‘𝑅)‘𝑘)) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝))
637	375, 636	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ⟨(1^st ‘𝑝), (2^nd ‘𝑝)⟩ = 𝑝)
638	630, 637	eqtr2d 2837	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → 𝑝 = (𝐷‘(𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))))
639		fveq2 6402	. . . . . . . 8 ⊢ (𝑐 = (𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) → (𝐷‘𝑐) = (𝐷‘(𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝))))))
640	639	rspceeqv 3516	. . . . . . 7 ⊢ (((𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))) ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽) ∧ 𝑝 = (𝐷‘(𝑡 ∈ (𝑅 ∪ {𝑍}) ↦ if(𝑡 ∈ 𝑅, ((2^nd ‘𝑝)‘𝑡), (𝐽 − (1^st ‘𝑝)))))) → ∃𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)𝑝 = (𝐷‘𝑐))
641	580, 638, 640	syl2anc 575	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))) → ∃𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)𝑝 = (𝐷‘𝑐))
642	641	ralrimiva 3150	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))∃𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)𝑝 = (𝐷‘𝑐))
643	254, 642	jca 503	. . . 4 ⊢ (𝜑 → (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)⟶∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ ∀𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))∃𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)𝑝 = (𝐷‘𝑐)))
644		dffo3 6590	. . . 4 ⊢ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)⟶∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ ∀𝑝 ∈ ∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))∃𝑐 ∈ ((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)𝑝 = (𝐷‘𝑐)))
645	643, 644	sylibr 225	. . 3 ⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))
646	372, 645	jca 503	. 2 ⊢ (𝜑 → (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))))
647		df-f1o 6102	. 2 ⊢ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1-onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ↔ (𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)) ∧ 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘))))
648	646, 647	sylibr 225	1 ⊢ (𝜑 → 𝐷:((𝐶‘(𝑅 ∪ {𝑍}))‘𝐽)–1-1-onto→∪ 𝑘 ∈ (0...𝐽)({𝑘} × ((𝐶‘𝑅)‘𝑘)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 197 ∧ wa 384 ∧ w3a 1100 = wceq 1637 ∃wex 1859 ∈ wcel 2155 ∀wral 3092 ∃wrex 3093 {crab 3096 Vcvv 3387 ∪ cun 3761 ⊆ wss 3763 ifcif 4273 𝒫 cpw 4345 {csn 4364 ⟨cop 4370 ∪ ciun 4705 class class class wbr 4837 ↦ cmpt 4916 × cxp 5303 ↾ cres 5307 Fn wfn 6090 ⟶wf 6091 –1-1→wf1 6092 –onto→wfo 6093 –1-1-onto→wf1o 6094 ‘cfv 6095 (class class class)co 6868 1^st c1st 7390 2^nd c2nd 7391 ↑_𝑚 cmap 8086 Fincfn 8186 ℂcc 10213 ℝcr 10214 0cc0 10215 + caddc 10218 ≤ cle 10354 − cmin 10545 ℕ₀cn0 11553 ℤcz 11637 ...cfz 12543 Σcsu 14633

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1877 ax-4 1894 ax-5 2001 ax-6 2067 ax-7 2103 ax-8 2157 ax-9 2164 ax-10 2184 ax-11 2200 ax-12 2213 ax-13 2419 ax-ext 2781 ax-rep 4957 ax-sep 4968 ax-nul 4977 ax-pow 5029 ax-pr 5090 ax-un 7173 ax-inf2 8779 ax-cnex 10271 ax-resscn 10272 ax-1cn 10273 ax-icn 10274 ax-addcl 10275 ax-addrcl 10276 ax-mulcl 10277 ax-mulrcl 10278 ax-mulcom 10279 ax-addass 10280 ax-mulass 10281 ax-distr 10282 ax-i2m1 10283 ax-1ne0 10284 ax-1rid 10285 ax-rnegex 10286 ax-rrecex 10287 ax-cnre 10288 ax-pre-lttri 10289 ax-pre-lttrn 10290 ax-pre-ltadd 10291 ax-pre-mulgt0 10292 ax-pre-sup 10293

This theorem depends on definitions: df-bi 198 df-an 385 df-or 866 df-3or 1101 df-3an 1102 df-tru 1641 df-fal 1651 df-ex 1860 df-nf 1864 df-sb 2060 df-eu 2633 df-mo 2634 df-clab 2789 df-cleq 2795 df-clel 2798 df-nfc 2933 df-ne 2975 df-nel 3078 df-ral 3097 df-rex 3098 df-reu 3099 df-rmo 3100 df-rab 3101 df-v 3389 df-sbc 3628 df-csb 3723 df-dif 3766 df-un 3768 df-in 3770 df-ss 3777 df-pss 3779 df-nul 4111 df-if 4274 df-pw 4347 df-sn 4365 df-pr 4367 df-tp 4369 df-op 4371 df-uni 4624 df-int 4663 df-iun 4707 df-br 4838 df-opab 4900 df-mpt 4917 df-tr 4940 df-id 5213 df-eprel 5218 df-po 5226 df-so 5227 df-fr 5264 df-se 5265 df-we 5266 df-xp 5311 df-rel 5312 df-cnv 5313 df-co 5314 df-dm 5315 df-rn 5316 df-res 5317 df-ima 5318 df-pred 5887 df-ord 5933 df-on 5934 df-lim 5935 df-suc 5936 df-iota 6058 df-fun 6097 df-fn 6098 df-f 6099 df-f1 6100 df-fo 6101 df-f1o 6102 df-fv 6103 df-isom 6104 df-riota 6829 df-ov 6871 df-oprab 6872 df-mpt2 6873 df-om 7290 df-1st 7392 df-2nd 7393 df-wrecs 7636 df-recs 7698 df-rdg 7736 df-1o 7790 df-oadd 7794 df-er 7973 df-map 8088 df-en 8187 df-dom 8188 df-sdom 8189 df-fin 8190 df-sup 8581 df-oi 8648 df-card 9042 df-pnf 10355 df-mnf 10356 df-xr 10357 df-ltxr 10358 df-le 10359 df-sub 10547 df-neg 10548 df-div 10964 df-nn 11300 df-2 11358 df-3 11359 df-n0 11554 df-z 11638 df-uz 11899 df-rp 12041 df-ico 12393 df-fz 12544 df-fzo 12684 df-seq 13019 df-exp 13078 df-hash 13332 df-cj 14056 df-re 14057 df-im 14058 df-sqrt 14192 df-abs 14193 df-clim 14436 df-sum 14634

This theorem is referenced by: dvnprodlem2 40636

W3C validator