stoweidlem11 - Mathbox for Glauco Siliprandi

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

Theorem stoweidlem11 47160

Description: This lemma is used to prove that there is a function 𝑔 as in the proof of [BrosowskiDeutsh] p. 92 (at the top of page 92): this lemma proves that g(t) < ( j + 1 / 3 ) * ε. Here 𝐸 is used to represent ε in the paper. (Contributed by Glauco Siliprandi, 20-Apr-2017.)

**Hypotheses**
Ref	Expression
stoweidlem11.1	⊢ (𝜑 → 𝑁 ∈ ℕ)
stoweidlem11.2	⊢ (𝜑 → 𝑡 ∈ 𝑇)
stoweidlem11.3	⊢ (𝜑 → 𝑗 ∈ (1...𝑁))
stoweidlem11.4	⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → (𝑋‘𝑖):𝑇⟶ℝ)
stoweidlem11.5	⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → ((𝑋‘𝑖)‘𝑡) ≤ 1)
stoweidlem11.6	⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → ((𝑋‘𝑖)‘𝑡) < (𝐸 / 𝑁))
stoweidlem11.7	⊢ (𝜑 → 𝐸 ∈ ℝ⁺)
stoweidlem11.8	⊢ (𝜑 → 𝐸 < (1 / 3))

**Assertion**
Ref	Expression
stoweidlem11	⊢ (𝜑 → ((𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))‘𝑡) < ((𝑗 + (1 / 3)) · 𝐸))

Distinct variable groups: 𝑖,𝑗 𝑡,𝑖,𝐸 𝑖,𝑁,𝑡 𝜑,𝑖 𝑡,𝑇 𝑡,𝑋 Allowed substitution hints: 𝜑(𝑡, 𝑗) 𝑇(𝑖, 𝑗) 𝐸(𝑗) 𝑁(𝑗) 𝑋(𝑖, 𝑗)

**Proof of Theorem stoweidlem11**
Step	Hyp	Ref	Expression
1		stoweidlem11.2	. . 3 ⊢ (𝜑 → 𝑡 ∈ 𝑇)
2		sumex 15867	. . 3 ⊢ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ V
3		eqid 2763	. . . 4 ⊢ (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡))) = (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))
4	3	fvmpt2 7013	. . 3 ⊢ ((𝑡 ∈ 𝑇 ∧ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ V) → ((𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))‘𝑡) = Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))
5	1, 2, 4	sylancl 598	. 2 ⊢ (𝜑 → ((𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))‘𝑡) = Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))
6		fzfid 14126	. . . 4 ⊢ (𝜑 → (0...𝑁) ∈ Fin)
7		stoweidlem11.7	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℝ⁺)
8	7	rpred 13174	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ ℝ)
9	8	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → 𝐸 ∈ ℝ)
10		stoweidlem11.4	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → (𝑋‘𝑖):𝑇⟶ℝ)
11	1	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → 𝑡 ∈ 𝑇)
12	10, 11	ffvelcdmd 7093	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → ((𝑋‘𝑖)‘𝑡) ∈ ℝ)
13	9, 12	remulcld 11349	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
14	6, 13	fsumrecl 15912	. . 3 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
15		stoweidlem11.3	. . . . . . 7 ⊢ (𝜑 → 𝑗 ∈ (1...𝑁))
16	15	elfzelzd 13667	. . . . . 6 ⊢ (𝜑 → 𝑗 ∈ ℤ)
17	16	zred 12813	. . . . 5 ⊢ (𝜑 → 𝑗 ∈ ℝ)
18	8, 17	remulcld 11349	. . . 4 ⊢ (𝜑 → (𝐸 · 𝑗) ∈ ℝ)
19		stoweidlem11.1	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ)
20	19	nnred 12360	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℝ)
21	20, 17	resubcld 11754	. . . . . 6 ⊢ (𝜑 → (𝑁 − 𝑗) ∈ ℝ)
22		1red 11319	. . . . . 6 ⊢ (𝜑 → 1 ∈ ℝ)
23	21, 22	readdcld 11348	. . . . 5 ⊢ (𝜑 → ((𝑁 − 𝑗) + 1) ∈ ℝ)
24	8, 19	nndivred 12402	. . . . . 6 ⊢ (𝜑 → (𝐸 / 𝑁) ∈ ℝ)
25	8, 24	remulcld 11349	. . . . 5 ⊢ (𝜑 → (𝐸 · (𝐸 / 𝑁)) ∈ ℝ)
26	23, 25	remulcld 11349	. . . 4 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁))) ∈ ℝ)
27	18, 26	readdcld 11348	. . 3 ⊢ (𝜑 → ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))) ∈ ℝ)
28		3re 12433	. . . . . . 7 ⊢ 3 ∈ ℝ
29	28	a1i 11	. . . . . 6 ⊢ (𝜑 → 3 ∈ ℝ)
30		3ne0 12462	. . . . . . 7 ⊢ 3 ≠ 0
31	30	a1i 11	. . . . . 6 ⊢ (𝜑 → 3 ≠ 0)
32	29, 31	rereccld 12154	. . . . 5 ⊢ (𝜑 → (1 / 3) ∈ ℝ)
33	17, 32	readdcld 11348	. . . 4 ⊢ (𝜑 → (𝑗 + (1 / 3)) ∈ ℝ)
34	33, 8	remulcld 11349	. . 3 ⊢ (𝜑 → ((𝑗 + (1 / 3)) · 𝐸) ∈ ℝ)
35		fzfid 14126	. . . . . 6 ⊢ (𝜑 → (0...(𝑗 − 1)) ∈ Fin)
36	8	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → 𝐸 ∈ ℝ)
37		elfzelz 13666	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (1...𝑁) → 𝑗 ∈ ℤ)
38		peano2zm 12749	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ ℤ → (𝑗 − 1) ∈ ℤ)
39	15, 37, 38	3syl 19	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 − 1) ∈ ℤ)
40	19	nnzd 12729	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℤ)
41	17, 22	resubcld 11754	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑗 − 1) ∈ ℝ)
42	17	lem1d 12260	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑗 − 1) ≤ 𝑗)
43		elfzuz3 13663	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (1...𝑁) → 𝑁 ∈ (ℤ_≥‘𝑗))
44		eluzle 12988	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ (ℤ_≥‘𝑗) → 𝑗 ≤ 𝑁)
45	15, 43, 44	3syl 19	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑗 ≤ 𝑁)
46	41, 17, 20, 42, 45	letrd 11477	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 − 1) ≤ 𝑁)
47		eluz2 12981	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘(𝑗 − 1)) ↔ ((𝑗 − 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ (𝑗 − 1) ≤ 𝑁))
48	39, 40, 46, 47	syl3anbrc 1362	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(𝑗 − 1)))
49		fzss2 13708	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘(𝑗 − 1)) → (0...(𝑗 − 1)) ⊆ (0...𝑁))
50	48, 49	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (0...(𝑗 − 1)) ⊆ (0...𝑁))
51	50	sselda 3912	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → 𝑖 ∈ (0...𝑁))
52	51, 12	syldan 603	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → ((𝑋‘𝑖)‘𝑡) ∈ ℝ)
53	36, 52	remulcld 11349	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
54	35, 53	fsumrecl 15912	. . . . 5 ⊢ (𝜑 → Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
55	54, 26	readdcld 11348	. . . 4 ⊢ (𝜑 → (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))) ∈ ℝ)
56	17	ltm1d 12259	. . . . . . 7 ⊢ (𝜑 → (𝑗 − 1) < 𝑗)
57		fzdisj 13695	. . . . . . 7 ⊢ ((𝑗 − 1) < 𝑗 → ((0...(𝑗 − 1)) ∩ (𝑗...𝑁)) = ∅)
58	56, 57	syl 18	. . . . . 6 ⊢ (𝜑 → ((0...(𝑗 − 1)) ∩ (𝑗...𝑁)) = ∅)
59		fzssp1 13711	. . . . . . . . . 10 ⊢ (0...(𝑁 − 1)) ⊆ (0...((𝑁 − 1) + 1))
60	19	nncnd 12361	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℂ)
61		1cnd 11312	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
62	60, 61	npcand 11683	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
63	62	oveq2d 7443	. . . . . . . . . 10 ⊢ (𝜑 → (0...((𝑁 − 1) + 1)) = (0...𝑁))
64	59, 63	sseqtrid 3954	. . . . . . . . 9 ⊢ (𝜑 → (0...(𝑁 − 1)) ⊆ (0...𝑁))
65		1zzd 12737	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℤ)
66		fzsubel 13704	. . . . . . . . . . . 12 ⊢ (((1 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑗 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑗 ∈ (1...𝑁) ↔ (𝑗 − 1) ∈ ((1 − 1)...(𝑁 − 1))))
67	65, 40, 16, 65, 66	syl22anc 852	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 ∈ (1...𝑁) ↔ (𝑗 − 1) ∈ ((1 − 1)...(𝑁 − 1))))
68	15, 67	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝑗 − 1) ∈ ((1 − 1)...(𝑁 − 1)))
69		1m1e0 12425	. . . . . . . . . . 11 ⊢ (1 − 1) = 0
70	69	oveq1i 7437	. . . . . . . . . 10 ⊢ ((1 − 1)...(𝑁 − 1)) = (0...(𝑁 − 1))
71	68, 70	eleqtrdi 2873	. . . . . . . . 9 ⊢ (𝜑 → (𝑗 − 1) ∈ (0...(𝑁 − 1)))
72	64, 71	sseldd 3913	. . . . . . . 8 ⊢ (𝜑 → (𝑗 − 1) ∈ (0...𝑁))
73		fzsplit 13694	. . . . . . . 8 ⊢ ((𝑗 − 1) ∈ (0...𝑁) → (0...𝑁) = ((0...(𝑗 − 1)) ∪ (((𝑗 − 1) + 1)...𝑁)))
74	72, 73	syl 18	. . . . . . 7 ⊢ (𝜑 → (0...𝑁) = ((0...(𝑗 − 1)) ∪ (((𝑗 − 1) + 1)...𝑁)))
75	16	zcnd 12814	. . . . . . . . . 10 ⊢ (𝜑 → 𝑗 ∈ ℂ)
76	75, 61	npcand 11683	. . . . . . . . 9 ⊢ (𝜑 → ((𝑗 − 1) + 1) = 𝑗)
77	76	oveq1d 7442	. . . . . . . 8 ⊢ (𝜑 → (((𝑗 − 1) + 1)...𝑁) = (𝑗...𝑁))
78	77	uneq2d 4169	. . . . . . 7 ⊢ (𝜑 → ((0...(𝑗 − 1)) ∪ (((𝑗 − 1) + 1)...𝑁)) = ((0...(𝑗 − 1)) ∪ (𝑗...𝑁)))
79	74, 78	eqtrd 2798	. . . . . 6 ⊢ (𝜑 → (0...𝑁) = ((0...(𝑗 − 1)) ∪ (𝑗...𝑁)))
80	7	rpcnd 13176	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ ℂ)
81	80	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → 𝐸 ∈ ℂ)
82	12	recnd 11347	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → ((𝑋‘𝑖)‘𝑡) ∈ ℂ)
83	81, 82	mulcld 11339	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℂ)
84	58, 79, 6, 83	fsumsplit 15919	. . . . 5 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) = (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡))))
85		fzfid 14126	. . . . . . 7 ⊢ (𝜑 → (𝑗...𝑁) ∈ Fin)
86	8	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → 𝐸 ∈ ℝ)
87		0zd 12715	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ ℤ)
88		0red 11321	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ ℝ)
89		0le1 11849	. . . . . . . . . . . . . . 15 ⊢ 0 ≤ 1
90	89	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ≤ 1)
91		elfzuz 13662	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 ∈ (1...𝑁) → 𝑗 ∈ (ℤ_≥‘1))
92	15, 91	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑗 ∈ (ℤ_≥‘1))
93		eluz2 12981	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 ∈ (ℤ_≥‘1) ↔ (1 ∈ ℤ ∧ 𝑗 ∈ ℤ ∧ 1 ≤ 𝑗))
94	92, 93	sylib 221	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1 ∈ ℤ ∧ 𝑗 ∈ ℤ ∧ 1 ≤ 𝑗))
95	94	simp3d 1162	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ≤ 𝑗)
96	88, 22, 17, 90, 95	letrd 11477	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ≤ 𝑗)
97		eluz2 12981	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (ℤ_≥‘0) ↔ (0 ∈ ℤ ∧ 𝑗 ∈ ℤ ∧ 0 ≤ 𝑗))
98	87, 16, 96, 97	syl3anbrc 1362	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑗 ∈ (ℤ_≥‘0))
99		fzss1 13707	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (ℤ_≥‘0) → (𝑗...𝑁) ⊆ (0...𝑁))
100	98, 99	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗...𝑁) ⊆ (0...𝑁))
101	100	sselda 3912	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → 𝑖 ∈ (0...𝑁))
102	101, 10	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (𝑋‘𝑖):𝑇⟶ℝ)
103	1	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → 𝑡 ∈ 𝑇)
104	102, 103	ffvelcdmd 7093	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → ((𝑋‘𝑖)‘𝑡) ∈ ℝ)
105	86, 104	remulcld 11349	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
106	85, 105	fsumrecl 15912	. . . . . 6 ⊢ (𝜑 → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) ∈ ℝ)
107		eluzfz2 13675	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘𝑗) → 𝑁 ∈ (𝑗...𝑁))
108		ne0i 4289	. . . . . . . . 9 ⊢ (𝑁 ∈ (𝑗...𝑁) → (𝑗...𝑁) ≠ ∅)
109	15, 43, 107, 108	4syl 20	. . . . . . . 8 ⊢ (𝜑 → (𝑗...𝑁) ≠ ∅)
110	19	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → 𝑁 ∈ ℕ)
111	86, 110	nndivred 12402	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (𝐸 / 𝑁) ∈ ℝ)
112	86, 111	remulcld 11349	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (𝐸 · (𝐸 / 𝑁)) ∈ ℝ)
113		stoweidlem11.6	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → ((𝑋‘𝑖)‘𝑡) < (𝐸 / 𝑁))
114	7	rpgt0d 13177	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < 𝐸)
115	114	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → 0 < 𝐸)
116		ltmul2 12178	. . . . . . . . . 10 ⊢ ((((𝑋‘𝑖)‘𝑡) ∈ ℝ ∧ (𝐸 / 𝑁) ∈ ℝ ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) → (((𝑋‘𝑖)‘𝑡) < (𝐸 / 𝑁) ↔ (𝐸 · ((𝑋‘𝑖)‘𝑡)) < (𝐸 · (𝐸 / 𝑁))))
117	104, 111, 86, 115, 116	syl112anc 1401	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (((𝑋‘𝑖)‘𝑡) < (𝐸 / 𝑁) ↔ (𝐸 · ((𝑋‘𝑖)‘𝑡)) < (𝐸 · (𝐸 / 𝑁))))
118	113, 117	mpbid 235	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝑗...𝑁)) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) < (𝐸 · (𝐸 / 𝑁)))
119	85, 109, 105, 112, 118	fsumlt 15979	. . . . . . 7 ⊢ (𝜑 → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) < Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · (𝐸 / 𝑁)))
120	19	nnne0d 12398	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ≠ 0)
121	80, 60, 120	divcld 12103	. . . . . . . . . 10 ⊢ (𝜑 → (𝐸 / 𝑁) ∈ ℂ)
122	80, 121	mulcld 11339	. . . . . . . . 9 ⊢ (𝜑 → (𝐸 · (𝐸 / 𝑁)) ∈ ℂ)
123		fsumconst 15968	. . . . . . . . 9 ⊢ (((𝑗...𝑁) ∈ Fin ∧ (𝐸 · (𝐸 / 𝑁)) ∈ ℂ) → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · (𝐸 / 𝑁)) = ((♯‘(𝑗...𝑁)) · (𝐸 · (𝐸 / 𝑁))))
124	85, 122, 123	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · (𝐸 / 𝑁)) = ((♯‘(𝑗...𝑁)) · (𝐸 · (𝐸 / 𝑁))))
125		hashfz 14582	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘𝑗) → (♯‘(𝑗...𝑁)) = ((𝑁 − 𝑗) + 1))
126	15, 43, 125	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝑗...𝑁)) = ((𝑁 − 𝑗) + 1))
127	126	oveq1d 7442	. . . . . . . 8 ⊢ (𝜑 → ((♯‘(𝑗...𝑁)) · (𝐸 · (𝐸 / 𝑁))) = (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁))))
128	124, 127	eqtrd 2798	. . . . . . 7 ⊢ (𝜑 → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · (𝐸 / 𝑁)) = (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁))))
129	119, 128	breqtrd 5133	. . . . . 6 ⊢ (𝜑 → Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) < (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁))))
130	106, 26, 54, 129	ltadd2dd 11479	. . . . 5 ⊢ (𝜑 → (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + Σ𝑖 ∈ (𝑗...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡))) < (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))))
131	84, 130	eqbrtrd 5129	. . . 4 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) < (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))))
132		stoweidlem11.5	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝑁)) → ((𝑋‘𝑖)‘𝑡) ≤ 1)
133	51, 132	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → ((𝑋‘𝑖)‘𝑡) ≤ 1)
134		1red 11319	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → 1 ∈ ℝ)
135	114	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → 0 < 𝐸)
136		lemul2 12180	. . . . . . . . . 10 ⊢ ((((𝑋‘𝑖)‘𝑡) ∈ ℝ ∧ 1 ∈ ℝ ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) → (((𝑋‘𝑖)‘𝑡) ≤ 1 ↔ (𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ (𝐸 · 1)))
137	52, 134, 36, 135, 136	syl112anc 1401	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → (((𝑋‘𝑖)‘𝑡) ≤ 1 ↔ (𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ (𝐸 · 1)))
138	133, 137	mpbid 235	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ (𝐸 · 1))
139	80	mulridd 11336	. . . . . . . . 9 ⊢ (𝜑 → (𝐸 · 1) = 𝐸)
140	139	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → (𝐸 · 1) = 𝐸)
141	138, 140	breqtrd 5133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(𝑗 − 1))) → (𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ 𝐸)
142	35, 53, 36, 141	fsumle 15978	. . . . . 6 ⊢ (𝜑 → Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ Σ𝑖 ∈ (0...(𝑗 − 1))𝐸)
143		fsumconst 15968	. . . . . . . 8 ⊢ (((0...(𝑗 − 1)) ∈ Fin ∧ 𝐸 ∈ ℂ) → Σ𝑖 ∈ (0...(𝑗 − 1))𝐸 = ((♯‘(0...(𝑗 − 1))) · 𝐸))
144	35, 80, 143	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → Σ𝑖 ∈ (0...(𝑗 − 1))𝐸 = ((♯‘(0...(𝑗 − 1))) · 𝐸))
145		0z 12714	. . . . . . . . . . 11 ⊢ 0 ∈ ℤ
146		1e0p1 12871	. . . . . . . . . . . . 13 ⊢ 1 = (0 + 1)
147	146	fveq2i 6896	. . . . . . . . . . . 12 ⊢ (ℤ_≥‘1) = (ℤ_≥‘(0 + 1))
148	92, 147	eleqtrdi 2873	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑗 ∈ (ℤ_≥‘(0 + 1)))
149		eluzp1m1 13001	. . . . . . . . . . 11 ⊢ ((0 ∈ ℤ ∧ 𝑗 ∈ (ℤ_≥‘(0 + 1))) → (𝑗 − 1) ∈ (ℤ_≥‘0))
150	145, 148, 149	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → (𝑗 − 1) ∈ (ℤ_≥‘0))
151		hashfz 14582	. . . . . . . . . 10 ⊢ ((𝑗 − 1) ∈ (ℤ_≥‘0) → (♯‘(0...(𝑗 − 1))) = (((𝑗 − 1) − 0) + 1))
152	150, 151	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0...(𝑗 − 1))) = (((𝑗 − 1) − 0) + 1))
153	75, 61	subcld 11679	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 − 1) ∈ ℂ)
154	153	subid1d 11668	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑗 − 1) − 0) = (𝑗 − 1))
155	154	oveq1d 7442	. . . . . . . . 9 ⊢ (𝜑 → (((𝑗 − 1) − 0) + 1) = ((𝑗 − 1) + 1))
156	152, 155, 76	3eqtrd 2802	. . . . . . . 8 ⊢ (𝜑 → (♯‘(0...(𝑗 − 1))) = 𝑗)
157	156	oveq1d 7442	. . . . . . 7 ⊢ (𝜑 → ((♯‘(0...(𝑗 − 1))) · 𝐸) = (𝑗 · 𝐸))
158	75, 80	mulcomd 11340	. . . . . . 7 ⊢ (𝜑 → (𝑗 · 𝐸) = (𝐸 · 𝑗))
159	144, 157, 158	3eqtrd 2802	. . . . . 6 ⊢ (𝜑 → Σ𝑖 ∈ (0...(𝑗 − 1))𝐸 = (𝐸 · 𝑗))
160	142, 159	breqtrd 5133	. . . . 5 ⊢ (𝜑 → Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) ≤ (𝐸 · 𝑗))
161	54, 18, 26, 160	leadd1dd 11940	. . . 4 ⊢ (𝜑 → (Σ𝑖 ∈ (0...(𝑗 − 1))(𝐸 · ((𝑋‘𝑖)‘𝑡)) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))) ≤ ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))))
162	14, 55, 27, 131, 161	ltletrd 11480	. . 3 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) < ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))))
163	8, 8	remulcld 11349	. . . . 5 ⊢ (𝜑 → (𝐸 · 𝐸) ∈ ℝ)
164	18, 163	readdcld 11348	. . . 4 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · 𝐸)) ∈ ℝ)
165	60, 75	subcld 11679	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 𝑗) ∈ ℂ)
166	165, 61	addcld 11338	. . . . . . 7 ⊢ (𝜑 → ((𝑁 − 𝑗) + 1) ∈ ℂ)
167	80, 166, 121	mul12d 11529	. . . . . 6 ⊢ (𝜑 → (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁))) = (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁))))
168	167	oveq2d 7443	. . . . 5 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)))) = ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))))
169	23, 24	remulcld 11349	. . . . . . 7 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)) ∈ ℝ)
170	8, 169	remulcld 11349	. . . . . 6 ⊢ (𝜑 → (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁))) ∈ ℝ)
171	166, 80, 60, 120	div12d 12139	. . . . . . . 8 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)) = (𝐸 · (((𝑁 − 𝑗) + 1) / 𝑁)))
172	22, 17	resubcld 11754	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 − 𝑗) ∈ ℝ)
173		elfzle1 13670	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 ∈ (1...𝑁) → 1 ≤ 𝑗)
174	15, 173	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ 𝑗)
175	22, 17	suble0d 11917	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((1 − 𝑗) ≤ 0 ↔ 1 ≤ 𝑗))
176	174, 175	mpbird 260	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 − 𝑗) ≤ 0)
177	172, 88, 20, 176	leadd2dd 11941	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 + (1 − 𝑗)) ≤ (𝑁 + 0))
178	60, 61, 75	addsub12d 11702	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑁 + (1 − 𝑗)) = (1 + (𝑁 − 𝑗)))
179	61, 165	addcomd 11522	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 + (𝑁 − 𝑗)) = ((𝑁 − 𝑗) + 1))
180	178, 179	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 + (1 − 𝑗)) = ((𝑁 − 𝑗) + 1))
181	60	addridd 11520	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 + 0) = 𝑁)
182	177, 180, 181	3brtr3d 5138	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁 − 𝑗) + 1) ≤ 𝑁)
183	19	nngt0d 12397	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 < 𝑁)
184		lediv1 12192	. . . . . . . . . . . . 13 ⊢ ((((𝑁 − 𝑗) + 1) ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (𝑁 ∈ ℝ ∧ 0 < 𝑁)) → (((𝑁 − 𝑗) + 1) ≤ 𝑁 ↔ (((𝑁 − 𝑗) + 1) / 𝑁) ≤ (𝑁 / 𝑁)))
185	23, 20, 20, 183, 184	syl112anc 1401	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) ≤ 𝑁 ↔ (((𝑁 − 𝑗) + 1) / 𝑁) ≤ (𝑁 / 𝑁)))
186	182, 185	mpbid 235	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) / 𝑁) ≤ (𝑁 / 𝑁))
187	60, 120	dividd 12101	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 / 𝑁) = 1)
188	186, 187	breqtrd 5133	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) / 𝑁) ≤ 1)
189	23, 19	nndivred 12402	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) / 𝑁) ∈ ℝ)
190	189, 22, 7	lemul2d 13218	. . . . . . . . . 10 ⊢ (𝜑 → ((((𝑁 − 𝑗) + 1) / 𝑁) ≤ 1 ↔ (𝐸 · (((𝑁 − 𝑗) + 1) / 𝑁)) ≤ (𝐸 · 1)))
191	188, 190	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐸 · (((𝑁 − 𝑗) + 1) / 𝑁)) ≤ (𝐸 · 1))
192	191, 139	breqtrd 5133	. . . . . . . 8 ⊢ (𝜑 → (𝐸 · (((𝑁 − 𝑗) + 1) / 𝑁)) ≤ 𝐸)
193	171, 192	eqbrtrd 5129	. . . . . . 7 ⊢ (𝜑 → (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)) ≤ 𝐸)
194	169, 8, 7	lemul2d 13218	. . . . . . 7 ⊢ (𝜑 → ((((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)) ≤ 𝐸 ↔ (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁))) ≤ (𝐸 · 𝐸)))
195	193, 194	mpbid 235	. . . . . 6 ⊢ (𝜑 → (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁))) ≤ (𝐸 · 𝐸))
196	170, 163, 18, 195	leadd2dd 11941	. . . . 5 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · (((𝑁 − 𝑗) + 1) · (𝐸 / 𝑁)))) ≤ ((𝐸 · 𝑗) + (𝐸 · 𝐸)))
197	168, 196	eqbrtrrd 5131	. . . 4 ⊢ (𝜑 → ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))) ≤ ((𝐸 · 𝑗) + (𝐸 · 𝐸)))
198	80, 75	mulcomd 11340	. . . . . . 7 ⊢ (𝜑 → (𝐸 · 𝑗) = (𝑗 · 𝐸))
199	198	oveq1d 7442	. . . . . 6 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · 𝐸)) = ((𝑗 · 𝐸) + (𝐸 · 𝐸)))
200	75, 80, 80	adddird 11344	. . . . . 6 ⊢ (𝜑 → ((𝑗 + 𝐸) · 𝐸) = ((𝑗 · 𝐸) + (𝐸 · 𝐸)))
201	199, 200	eqtr4d 2801	. . . . 5 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · 𝐸)) = ((𝑗 + 𝐸) · 𝐸))
202	17, 8	readdcld 11348	. . . . . 6 ⊢ (𝜑 → (𝑗 + 𝐸) ∈ ℝ)
203		stoweidlem11.8	. . . . . . 7 ⊢ (𝜑 → 𝐸 < (1 / 3))
204	8, 32, 17, 203	ltadd2dd 11479	. . . . . 6 ⊢ (𝜑 → (𝑗 + 𝐸) < (𝑗 + (1 / 3)))
205	202, 33, 7, 204	ltmul1dd 13229	. . . . 5 ⊢ (𝜑 → ((𝑗 + 𝐸) · 𝐸) < ((𝑗 + (1 / 3)) · 𝐸))
206	201, 205	eqbrtrd 5129	. . . 4 ⊢ (𝜑 → ((𝐸 · 𝑗) + (𝐸 · 𝐸)) < ((𝑗 + (1 / 3)) · 𝐸))
207	27, 164, 34, 197, 206	lelttrd 11478	. . 3 ⊢ (𝜑 → ((𝐸 · 𝑗) + (((𝑁 − 𝑗) + 1) · (𝐸 · (𝐸 / 𝑁)))) < ((𝑗 + (1 / 3)) · 𝐸))
208	14, 27, 34, 162, 207	lttrd 11481	. 2 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)) < ((𝑗 + (1 / 3)) · 𝐸))
209	5, 208	eqbrtrd 5129	1 ⊢ (𝜑 → ((𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 · ((𝑋‘𝑖)‘𝑡)))‘𝑡) < ((𝑗 + (1 / 3)) · 𝐸))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1569 ∈ wcel 2146 ≠ wne 2958 Vcvv 3453 ⊆ wss 3899 ∩ cin 4091 ∪ cun 4151 ∅c0 4280 class class class wbr 5105 ↦ cmpt 5188 ⟶wf 6542 ‘cfv 6546 (class class class)co 7427 Fincfn 8984 ℂcc 11208 ℝcr 11209 0cc0 11210 1c1 11211 + caddc 11213 · cmul 11215 < clt 11353 ≤ cle 11354 − cmin 11551 / cdiv 11983 ℕcn 12345 3c3 12408 ℤcz 12703 ℤ_≥cuz 12975 ℝ⁺crp 13130 ...cfz 13649 ♯chash 14484 Σcsu 15865

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-rep 5234 ax-sep 5251 ax-nul 5262 ax-pow 5330 ax-pr 5394 ax-un 7758 ax-inf2 9652 ax-cnex 11266 ax-resscn 11267 ax-1cn 11268 ax-icn 11269 ax-addcl 11270 ax-addrcl 11271 ax-mulcl 11272 ax-mulrcl 11273 ax-mulcom 11274 ax-addass 11275 ax-mulass 11276 ax-distr 11277 ax-i2m1 11278 ax-1ne0 11279 ax-1rid 11280 ax-rnegex 11281 ax-rrecex 11282 ax-cnre 11283 ax-pre-lttri 11284 ax-pre-lttrn 11285 ax-pre-ltadd 11286 ax-pre-mulgt0 11287 ax-pre-sup 11288

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3368 df-reu 3369 df-rab 3416 df-v 3455 df-sbc 3742 df-csb 3851 df-ss 3900 df-pss 4016 df-dif 4049 df-in 4093 df-un 4153 df-nul 4281 df-if 4485 df-pw 4561 df-sn 4588 df-pr 4590 df-op 4838 df-uni 4870 df-int 4910 df-iun 4955 df-br 5106 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5549 df-eprel 5554 df-po 5562 df-so 5563 df-fr 5607 df-se 5608 df-we 5609 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6310 df-ord 6371 df-on 6372 df-lim 6373 df-suc 6374 df-iota 6500 df-fun 6548 df-fn 6549 df-f 6550 df-f1 6551 df-fo 6552 df-f1o 6553 df-fv 6554 df-isom 6555 df-riota 7384 df-ov 7430 df-oprab 7431 df-mpo 7432 df-om 7885 df-1st 8008 df-2nd 8009 df-frecs 8310 df-wrecs 8341 df-recs 8390 df-rdg 8429 df-1o 8487 df-er 8728 df-en 8985 df-dom 8986 df-sdom 8987 df-fin 8988 df-sup 9444 df-oi 9514 df-card 10030 df-pnf 11355 df-mnf 11356 df-xr 11357 df-ltxr 11358 df-le 11359 df-sub 11553 df-neg 11554 df-div 11984 df-nn 12346 df-2 12415 df-3 12416 df-n0 12617 df-z 12704 df-uz 12976 df-rp 13131 df-ico 13492 df-fz 13650 df-fzo 13799 df-seq 14155 df-exp 14215 df-hash 14485 df-cj 15278 df-re 15279 df-im 15280 df-sqrt 15414 df-abs 15415 df-clim 15667 df-sum 15866

This theorem is used by: stoweidlem34 47183

W3C validator