Theorem itg2monolem3 25721

Description: Lemma for itg2mono 25722. (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 25720	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℝ)
11	10	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℝ)
12	11	recnd 11172	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℂ)
13	7	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∈ dom ∫1)
14		itg1cl 25654	. . . . . . . . 9 ⊢ (𝑃 ∈ dom ∫1 → (∫1‘𝑃) ∈ ℝ)
15	13, 14	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℝ)
16	15	recnd 11172	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℂ)
17		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ+)
18	17	rpred 12961	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ)
19	11, 18	readdcld 11173	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℝ)
20	19	recnd 11172	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℂ)
21		0red 11147	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ∈ ℝ)
22		0xr 11191	. . . . . . . . . . . 12 ⊢ 0 ∈ ℝ*
23	22	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℝ*)
24		fveq2 6842	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (𝐹‘𝑛) = (𝐹‘1))
25	24	feq1d 6652	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → ((𝐹‘𝑛):ℝ⟶(0[,]+∞) ↔ (𝐹‘1):ℝ⟶(0[,]+∞)))
26		icossicc 13364	. . . . . . . . . . . . . . 15 ⊢ (0[,)+∞) ⊆ (0[,]+∞)
27		fss 6686	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑛):ℝ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ (0[,]+∞)) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
28	3, 26, 27	sylancl 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
29	28	ralrimiva 3130	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝐹‘𝑛):ℝ⟶(0[,]+∞))
30		1nn 12168	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
31	30	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 ∈ ℕ)
32	25, 29, 31	rspcdva 3579	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐹‘1):ℝ⟶(0[,]+∞))
33		itg2cl 25701	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘1)) ∈ ℝ*)
34	32, 33	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ℝ*)
35		itg2cl 25701	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑛):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
36	28, 35	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
37	36	fmpttd 7069	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))):ℕ⟶ℝ*)
38	37	frnd 6678	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ*)
39		supxrcl 13242	. . . . . . . . . . . . 13 ⊢ (ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
40	38, 39	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
41	6, 40	eqeltrid 2841	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ ℝ*)
42		itg2ge0 25704	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → 0 ≤ (∫2‘(𝐹‘1)))
43	32, 42	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ (∫2‘(𝐹‘1)))
44		2fveq3 6847	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 1 → (∫2‘(𝐹‘𝑛)) = (∫2‘(𝐹‘1)))
45		eqid 2737	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))
46		fvex 6855	. . . . . . . . . . . . . . . 16 ⊢ (∫2‘(𝐹‘1)) ∈ V
47	44, 45, 46	fvmpt 6949	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1)))
48	30, 47	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1))
49	37	ffnd 6671	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ)
50		fnfvelrn 7034	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ ∧ 1 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
51	49, 30, 50	sylancl 587	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
52	48, 51	eqeltrrid 2842	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
53		supxrub 13251	. . . . . . . . . . . . 13 ⊢ ((ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* ∧ (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))) → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
54	38, 52, 53	syl2anc 585	. . . . . . . . . . . 12 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
55	54, 6	breqtrrdi 5142	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ 𝑆)
56	23, 34, 41, 43, 55	xrletrd 13088	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝑆)
57	56	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ≤ 𝑆)
58	11, 17	ltaddrpd 12994	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (𝑆 + 𝑡))
59	21, 11, 19, 57, 58	lelttrd 11303	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (𝑆 + 𝑡))
60	59	gt0ne0d 11713	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ≠ 0)
61	12, 16, 20, 60	div23d 11966	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) = ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)))
62	11, 19, 60	redivcld 11981	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ∈ ℝ)
63	62, 15	remulcld 11174	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ∈ ℝ)
64		halfre 12366	. . . . . . . . 9 ⊢ (1 / 2) ∈ ℝ
65		ifcl 4527	. . . . . . . . 9 ⊢ (((𝑆 / (𝑆 + 𝑡)) ∈ ℝ ∧ (1 / 2) ∈ ℝ) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
66	62, 64, 65	sylancl 587	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
67	66, 15	remulcld 11174	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ∈ ℝ)
68		max2 13114	. . . . . . . . 9 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
69	64, 62, 68	sylancr 588	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
70	7, 14	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ)
71	70	rexrd 11194	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ*)
72		xrltnle 11211	. . . . . . . . . . . . 13 ⊢ ((𝑆 ∈ ℝ* ∧ (∫1‘𝑃) ∈ ℝ*) → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
73	41, 71, 72	syl2anc 585	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
74	9, 73	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 < (∫1‘𝑃))
75	74	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (∫1‘𝑃))
76	21, 11, 15, 57, 75	lelttrd 11303	. . . . . . . . 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 1377	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ↔ ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃))))
79	69, 78	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
80	2	adantlr 716	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ MblFn)
81	3	adantlr 716	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
82	4	adantlr 716	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∘r ≤ (𝐹‘(𝑛 + 1)))
83	5	adantlr 716	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → ∃𝑦 ∈ ℝ ∀𝑛 ∈ ℕ ((𝐹‘𝑛)‘𝑥) ≤ 𝑦)
84	64	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ∈ ℝ)
85		halfgt0 12368	. . . . . . . . . . 11 ⊢ 0 < (1 / 2)
86	85	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (1 / 2))
87		max1 13112	. . . . . . . . . . 11 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
88	64, 62, 87	sylancr 588	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
89	21, 84, 66, 86, 88	ltletrd 11305	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
90	20	mulridd 11161	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 + 𝑡) · 1) = (𝑆 + 𝑡))
91	58, 90	breqtrrd 5128	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < ((𝑆 + 𝑡) · 1))
92		1red 11145	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 1 ∈ ℝ)
93		ltdivmul 12029	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ ℝ ∧ 1 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
94	11, 92, 19, 59, 93	syl112anc 1377	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
95	91, 94	mpbird 257	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) < 1)
96		halflt1 12370	. . . . . . . . . 10 ⊢ (1 / 2) < 1
97		breq1 5103	. . . . . . . . . . 11 ⊢ ((𝑆 / (𝑆 + 𝑡)) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
98		breq1 5103	. . . . . . . . . . 11 ⊢ ((1 / 2) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((1 / 2) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
99	97, 98	ifboth 4521	. . . . . . . . . 10 ⊢ (((𝑆 / (𝑆 + 𝑡)) < 1 ∧ (1 / 2) < 1) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
100	95, 96, 99	sylancl 587	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
101		1xr 11203	. . . . . . . . . 10 ⊢ 1 ∈ ℝ*
102		elioo2 13314	. . . . . . . . . 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 693	. . . . . . . . 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 1345	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ (0(,)1))
105	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∘r ≤ 𝐺)
106		fveq2 6842	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → (𝑃‘𝑦) = (𝑃‘𝑥))
107	106	oveq2d 7384	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) = (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)))
108		fveq2 6842	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → ((𝐹‘𝑛)‘𝑦) = ((𝐹‘𝑛)‘𝑥))
109	107, 108	breq12d 5113	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → ((if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦) ↔ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)))
110	109	cbvrabv 3411	. . . . . . . . 9 ⊢ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)} = {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)}
111	110	mpteq2i 5196	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)}) = (𝑛 ∈ ℕ ↦ {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)})
112	1, 80, 81, 82, 83, 6, 104, 13, 105, 11, 111	itg2monolem1 25719	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ≤ 𝑆)
113	63, 67, 11, 79, 112	letrd 11302	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ 𝑆)
114	61, 113	eqbrtrd 5122	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆)
115	11, 15	remulcld 11174	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ∈ ℝ)
116		ledivmul2 12033	. . . . . 6 ⊢ (((𝑆 · (∫1‘𝑃)) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
117	115, 11, 19, 59, 116	syl112anc 1377	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
118	114, 117	mpbid 232	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡)))
119	66, 15, 89, 76	mulgt0d 11300	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
120	21, 67, 11, 119, 112	ltletrd 11305	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < 𝑆)
121		lemul2 12006	. . . . 5 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ (𝑆 + 𝑡) ∈ ℝ ∧ (𝑆 ∈ ℝ ∧ 0 < 𝑆)) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
122	15, 19, 11, 120, 121	syl112anc 1377	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
123	118, 122	mpbird 257	. . 3 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ≤ (𝑆 + 𝑡))
124	123	ralrimiva 3130	. 2 ⊢ (𝜑 → ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡))
125		alrple 13133	. . 3 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ 𝑆 ∈ ℝ) → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
126	70, 10, 125	syl2anc 585	. 2 ⊢ (𝜑 → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
127	124, 126	mpbird 257	1 ⊢ (𝜑 → (∫1‘𝑃) ≤ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3062  {crab 3401   ⊆ wss 3903  ifcif 4481   class class class wbr 5100   ↦ cmpt 5181  dom cdm 5632  ran crn 5633   Fn wfn 6495  ⟶wf 6496  ‘cfv 6500  (class class class)co 7368   ∘_r cofr 7631  supcsup 9355  ℝcr 11037  0cc0 11038  1c1 11039   + caddc 11041   · cmul 11043  +∞cpnf 11175  ℝ^*cxr 11177   < clt 11178   ≤ cle 11179   / cdiv 11806  ℕcn 12157  2c2 12212  ℝ⁺crp 12917  (,)cioo 13273  [,)cico 13275  [,]cicc 13276  MblFncmbf 25583  ∫₁citg1 25584  ∫₂citg2 25585

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-cc 10357  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-disj 5068  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-of 7632  df-ofr 7633  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-oadd 8411  df-omul 8412  df-er 8645  df-map 8777  df-pm 8778  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-fi 9326  df-sup 9357  df-inf 9358  df-oi 9427  df-dju 9825  df-card 9863  df-acn 9866  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-nn 12158  df-2 12220  df-3 12221  df-n0 12414  df-z 12501  df-uz 12764  df-q 12874  df-rp 12918  df-xneg 13038  df-xadd 13039  df-xmul 13040  df-ioo 13277  df-ioc 13278  df-ico 13279  df-icc 13280  df-fz 13436  df-fzo 13583  df-fl 13724  df-seq 13937  df-exp 13997  df-hash 14266  df-cj 15034  df-re 15035  df-im 15036  df-sqrt 15170  df-abs 15171  df-clim 15423  df-rlim 15424  df-sum 15622  df-rest 17354  df-topgen 17375  df-psmet 21313  df-xmet 21314  df-met 21315  df-bl 21316  df-mopn 21317  df-top 22850  df-topon 22867  df-bases 22902  df-cmp 23343  df-ovol 25433  df-vol 25434  df-mbf 25588  df-itg1 25589  df-itg2 25590

This theorem is referenced by:  itg2mono  25722