Theorem itg2monolem3 25744

Description: Lemma for itg2mono 25745. (Contributed by Mario Carneiro, 16-Aug-2014.)

Hypotheses

Ref	Expression
itg2mono.1	⊢ 𝐺 = (𝑥 ∈ ℝ ↦ sup(ran (𝑛 ∈ ℕ ↦ ((𝐹‘𝑛)‘𝑥)), ℝ, < ))
itg2mono.2	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ MblFn)
itg2mono.3	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
itg2mono.4	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∘r ≤ (𝐹‘(𝑛 + 1)))
itg2mono.5	⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → ∃𝑦 ∈ ℝ ∀𝑛 ∈ ℕ ((𝐹‘𝑛)‘𝑥) ≤ 𝑦)
itg2mono.6	⊢ 𝑆 = sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < )
itg2monolem2.7	⊢ (𝜑 → 𝑃 ∈ dom ∫1)
itg2monolem2.8	⊢ (𝜑 → 𝑃 ∘r ≤ 𝐺)
itg2monolem2.9	⊢ (𝜑 → ¬ (∫1‘𝑃) ≤ 𝑆)

Assertion

Ref	Expression
itg2monolem3	⊢ (𝜑 → (∫1‘𝑃) ≤ 𝑆)

Distinct variable groups:   𝑥,𝑛,𝑦,𝐺   𝑃,𝑛,𝑥,𝑦   𝑛,𝐹,𝑥,𝑦   𝜑,𝑛,𝑥,𝑦   𝑆,𝑛,𝑥,𝑦

Proof of Theorem itg2monolem3

Dummy variable 𝑡 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		itg2mono.1	. . . . . . . . . 10 ⊢ 𝐺 = (𝑥 ∈ ℝ ↦ sup(ran (𝑛 ∈ ℕ ↦ ((𝐹‘𝑛)‘𝑥)), ℝ, < ))
2		itg2mono.2	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ MblFn)
3		itg2mono.3	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
4		itg2mono.4	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∘r ≤ (𝐹‘(𝑛 + 1)))
5		itg2mono.5	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → ∃𝑦 ∈ ℝ ∀𝑛 ∈ ℕ ((𝐹‘𝑛)‘𝑥) ≤ 𝑦)
6		itg2mono.6	. . . . . . . . . 10 ⊢ 𝑆 = sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < )
7		itg2monolem2.7	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ dom ∫1)
8		itg2monolem2.8	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∘r ≤ 𝐺)
9		itg2monolem2.9	. . . . . . . . . 10 ⊢ (𝜑 → ¬ (∫1‘𝑃) ≤ 𝑆)
10	1, 2, 3, 4, 5, 6, 7, 8, 9	itg2monolem2 25743	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℝ)
11	10	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℝ)
12	11	recnd 11171	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℂ)
13	7	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∈ dom ∫1)
14		itg1cl 25677	. . . . . . . . 9 ⊢ (𝑃 ∈ dom ∫1 → (∫1‘𝑃) ∈ ℝ)
15	13, 14	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℝ)
16	15	recnd 11171	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℂ)
17		simpr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ+)
18	17	rpred 12984	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ)
19	11, 18	readdcld 11172	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℝ)
20	19	recnd 11171	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℂ)
21		0red 11145	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ∈ ℝ)
22		0xr 11190	. . . . . . . . . . . 12 ⊢ 0 ∈ ℝ*
23	22	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℝ*)
24		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (𝐹‘𝑛) = (𝐹‘1))
25	24	feq1d 6644	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → ((𝐹‘𝑛):ℝ⟶(0[,]+∞) ↔ (𝐹‘1):ℝ⟶(0[,]+∞)))
26		icossicc 13387	. . . . . . . . . . . . . . 15 ⊢ (0[,)+∞) ⊆ (0[,]+∞)
27		fss 6678	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑛):ℝ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ (0[,]+∞)) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
28	3, 26, 27	sylancl 592	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
29	28	ralrimiva 3132	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝐹‘𝑛):ℝ⟶(0[,]+∞))
30		1nn 12183	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
31	30	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 ∈ ℕ)
32	25, 29, 31	rspcdva 3568	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐹‘1):ℝ⟶(0[,]+∞))
33		itg2cl 25724	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘1)) ∈ ℝ*)
34	32, 33	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ℝ*)
35		itg2cl 25724	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑛):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
36	28, 35	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
37	36	fmpttd 7063	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))):ℕ⟶ℝ*)
38	37	frnd 6670	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ*)
39		supxrcl 13265	. . . . . . . . . . . . 13 ⊢ (ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
40	38, 39	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
41	6, 40	eqeltrid 2844	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ ℝ*)
42		itg2ge0 25727	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → 0 ≤ (∫2‘(𝐹‘1)))
43	32, 42	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ (∫2‘(𝐹‘1)))
44		2fveq3 6839	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 1 → (∫2‘(𝐹‘𝑛)) = (∫2‘(𝐹‘1)))
45		eqid 2740	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))
46		fvex 6847	. . . . . . . . . . . . . . . 16 ⊢ (∫2‘(𝐹‘1)) ∈ V
47	44, 45, 46	fvmpt 6942	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1)))
48	30, 47	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1))
49	37	ffnd 6663	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ)
50		fnfvelrn 7028	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ ∧ 1 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
51	49, 30, 50	sylancl 592	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
52	48, 51	eqeltrrid 2845	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
53		supxrub 13274	. . . . . . . . . . . . 13 ⊢ ((ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* ∧ (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))) → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
54	38, 52, 53	syl2anc 590	. . . . . . . . . . . 12 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
55	54, 6	breqtrrdi 5121	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ 𝑆)
56	23, 34, 41, 43, 55	xrletrd 13111	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝑆)
57	56	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ≤ 𝑆)
58	11, 17	ltaddrpd 13017	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (𝑆 + 𝑡))
59	21, 11, 19, 57, 58	lelttrd 11302	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (𝑆 + 𝑡))
60	59	gt0ne0d 11712	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ≠ 0)
61	12, 16, 20, 60	div23d 11966	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) = ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)))
62	11, 19, 60	redivcld 11981	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ∈ ℝ)
63	62, 15	remulcld 11173	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ∈ ℝ)
64		halfre 12388	. . . . . . . . 9 ⊢ (1 / 2) ∈ ℝ
65		ifcl 4507	. . . . . . . . 9 ⊢ (((𝑆 / (𝑆 + 𝑡)) ∈ ℝ ∧ (1 / 2) ∈ ℝ) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
66	62, 64, 65	sylancl 592	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
67	66, 15	remulcld 11173	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ∈ ℝ)
68		max2 13137	. . . . . . . . 9 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
69	64, 62, 68	sylancr 593	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
70	7, 14	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ)
71	70	rexrd 11193	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ*)
72		xrltnle 11210	. . . . . . . . . . . . 13 ⊢ ((𝑆 ∈ ℝ* ∧ (∫1‘𝑃) ∈ ℝ*) → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
73	41, 71, 72	syl2anc 590	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
74	9, 73	mpbird 258	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 < (∫1‘𝑃))
75	74	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (∫1‘𝑃))
76	21, 11, 15, 57, 75	lelttrd 11302	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (∫1‘𝑃))
77		lemul1 12005	. . . . . . . . 9 ⊢ (((𝑆 / (𝑆 + 𝑡)) ∈ ℝ ∧ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ ∧ ((∫1‘𝑃) ∈ ℝ ∧ 0 < (∫1‘𝑃))) → ((𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ↔ ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃))))
78	62, 66, 15, 76, 77	syl112anc 1382	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ↔ ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃))))
79	69, 78	mpbid 233	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
80	2	adantlr 721	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ MblFn)
81	3	adantlr 721	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
82	4	adantlr 721	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∘r ≤ (𝐹‘(𝑛 + 1)))
83	5	adantlr 721	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → ∃𝑦 ∈ ℝ ∀𝑛 ∈ ℕ ((𝐹‘𝑛)‘𝑥) ≤ 𝑦)
84	64	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ∈ ℝ)
85		halfgt0 12390	. . . . . . . . . . 11 ⊢ 0 < (1 / 2)
86	85	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (1 / 2))
87		max1 13135	. . . . . . . . . . 11 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
88	64, 62, 87	sylancr 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
89	21, 84, 66, 86, 88	ltletrd 11304	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
90	20	mulridd 11160	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 + 𝑡) · 1) = (𝑆 + 𝑡))
91	58, 90	breqtrrd 5107	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < ((𝑆 + 𝑡) · 1))
92		1red 11143	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 1 ∈ ℝ)
93		ltdivmul 12029	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ ℝ ∧ 1 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
94	11, 92, 19, 59, 93	syl112anc 1382	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
95	91, 94	mpbird 258	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) < 1)
96		halflt1 12392	. . . . . . . . . 10 ⊢ (1 / 2) < 1
97		breq1 5082	. . . . . . . . . . 11 ⊢ ((𝑆 / (𝑆 + 𝑡)) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
98		breq1 5082	. . . . . . . . . . 11 ⊢ ((1 / 2) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((1 / 2) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
99	97, 98	ifboth 4501	. . . . . . . . . 10 ⊢ (((𝑆 / (𝑆 + 𝑡)) < 1 ∧ (1 / 2) < 1) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
100	95, 96, 99	sylancl 592	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
101		1xr 11202	. . . . . . . . . 10 ⊢ 1 ∈ ℝ*
102		elioo2 13337	. . . . . . . . . 10 ⊢ ((0 ∈ ℝ* ∧ 1 ∈ ℝ*) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ (0(,)1) ↔ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ ∧ 0 < if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∧ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)))
103	22, 101, 102	mp2an 698	. . . . . . . . 9 ⊢ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ (0(,)1) ↔ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ ∧ 0 < if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∧ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
104	66, 89, 100, 103	syl3anbrc 1350	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ (0(,)1))
105	8	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∘r ≤ 𝐺)
106		fveq2 6834	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → (𝑃‘𝑦) = (𝑃‘𝑥))
107	106	oveq2d 7379	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) = (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)))
108		fveq2 6834	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → ((𝐹‘𝑛)‘𝑦) = ((𝐹‘𝑛)‘𝑥))
109	107, 108	breq12d 5092	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → ((if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦) ↔ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)))
110	109	cbvrabv 3402	. . . . . . . . 9 ⊢ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)} = {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)}
111	110	mpteq2i 5175	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)}) = (𝑛 ∈ ℕ ↦ {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)})
112	1, 80, 81, 82, 83, 6, 104, 13, 105, 11, 111	itg2monolem1 25742	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ≤ 𝑆)
113	63, 67, 11, 79, 112	letrd 11301	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ 𝑆)
114	61, 113	eqbrtrd 5101	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆)
115	11, 15	remulcld 11173	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ∈ ℝ)
116		ledivmul2 12033	. . . . . 6 ⊢ (((𝑆 · (∫1‘𝑃)) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
117	115, 11, 19, 59, 116	syl112anc 1382	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
118	114, 117	mpbid 233	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡)))
119	66, 15, 89, 76	mulgt0d 11299	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
120	21, 67, 11, 119, 112	ltletrd 11304	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < 𝑆)
121		lemul2 12006	. . . . 5 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ (𝑆 + 𝑡) ∈ ℝ ∧ (𝑆 ∈ ℝ ∧ 0 < 𝑆)) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
122	15, 19, 11, 120, 121	syl112anc 1382	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
123	118, 122	mpbird 258	. . 3 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ≤ (𝑆 + 𝑡))
124	123	ralrimiva 3132	. 2 ⊢ (𝜑 → ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡))
125		alrple 13156	. . 3 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ 𝑆 ∈ ℝ) → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
126	70, 10, 125	syl2anc 590	. 2 ⊢ (𝜑 → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
127	124, 126	mpbird 258	1 ⊢ (𝜑 → (∫1‘𝑃) ≤ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119  ∀wral 3054  ∃wrex 3064  {crab 3392   ⊆ wss 3890  ifcif 4461   class class class wbr 5079   ↦ cmpt 5160  dom cdm 5625  ran crn 5626   Fn wfn 6487  ⟶wf 6488  ‘cfv 6492  (class class class)co 7363   ∘_r cofr 7626  supcsup 9350  ℝcr 11035  0cc0 11036  1c1 11037   + caddc 11039   · cmul 11041  +∞cpnf 11174  ℝ^*cxr 11176   < clt 11177   ≤ cle 11178   / cdiv 11805  ℕcn 12172  2c2 12234  ℝ⁺crp 12940  (,)cioo 13296  [,)cico 13298  [,]cicc 13299  MblFncmbf 25606  ∫₁citg1 25607  ∫₂citg2 25608

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-inf2 9560  ax-cc 10355  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113  ax-pre-sup 11114

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-disj 5047  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-of 7627  df-ofr 7628  df-om 7814  df-1st 7938  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-oadd 8406  df-omul 8407  df-er 8640  df-map 8772  df-pm 8773  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fi 9321  df-sup 9352  df-inf 9353  df-oi 9422  df-dju 9823  df-card 9861  df-acn 9864  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-div 11806  df-nn 12173  df-2 12242  df-3 12243  df-n0 12436  df-z 12523  df-uz 12787  df-q 12897  df-rp 12941  df-xneg 13061  df-xadd 13062  df-xmul 13063  df-ioo 13300  df-ioc 13301  df-ico 13302  df-icc 13303  df-fz 13460  df-fzo 13607  df-fl 13749  df-seq 13962  df-exp 14022  df-hash 14291  df-cj 15059  df-re 15060  df-im 15061  df-sqrt 15195  df-abs 15196  df-clim 15448  df-rlim 15449  df-sum 15647  df-rest 17383  df-topgen 17404  df-psmet 21346  df-xmet 21347  df-met 21348  df-bl 21349  df-mopn 21350  df-top 22884  df-topon 22901  df-bases 22936  df-cmp 23377  df-ovol 25456  df-vol 25457  df-mbf 25611  df-itg1 25612  df-itg2 25613

This theorem is referenced by:  itg2mono  25745