Theorem itg2monolem3 25890

Description: Lemma for itg2mono 25891. (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 25889	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℝ)
11	10	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℝ)
12	11	recnd 11236	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 ∈ ℂ)
13	7	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∈ dom ∫1)
14		itg1cl 25823	. . . . . . . . 9 ⊢ (𝑃 ∈ dom ∫1 → (∫1‘𝑃) ∈ ℝ)
15	13, 14	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℝ)
16	15	recnd 11236	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ∈ ℂ)
17		simpr 489	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ+)
18	17	rpred 13059	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑡 ∈ ℝ)
19	11, 18	readdcld 11237	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℝ)
20	19	recnd 11236	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ∈ ℂ)
21		0red 11210	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ∈ ℝ)
22		0xr 11255	. . . . . . . . . . . 12 ⊢ 0 ∈ ℝ*
23	22	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℝ*)
24		fveq2 6881	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (𝐹‘𝑛) = (𝐹‘1))
25	24	feq1d 6687	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → ((𝐹‘𝑛):ℝ⟶(0[,]+∞) ↔ (𝐹‘1):ℝ⟶(0[,]+∞)))
26		icossicc 13462	. . . . . . . . . . . . . . 15 ⊢ (0[,)+∞) ⊆ (0[,]+∞)
27		fss 6722	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑛):ℝ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ (0[,]+∞)) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
28	3, 26, 27	sylancl 597	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
29	28	ralrimiva 3155	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝐹‘𝑛):ℝ⟶(0[,]+∞))
30		1nn 12243	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
31	30	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 ∈ ℕ)
32	25, 29, 31	rspcdva 3581	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐹‘1):ℝ⟶(0[,]+∞))
33		itg2cl 25870	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘1)) ∈ ℝ*)
34	32, 33	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ℝ*)
35		itg2cl 25870	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑛):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
36	28, 35	syl 18	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
37	36	fmpttd 7110	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))):ℕ⟶ℝ*)
38	37	frnd 6714	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ*)
39		supxrcl 13340	. . . . . . . . . . . . 13 ⊢ (ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
40	38, 39	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
41	6, 40	eqeltrid 2865	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ ℝ*)
42		itg2ge0 25873	. . . . . . . . . . . 12 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → 0 ≤ (∫2‘(𝐹‘1)))
43	32, 42	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ (∫2‘(𝐹‘1)))
44		2fveq3 6886	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 1 → (∫2‘(𝐹‘𝑛)) = (∫2‘(𝐹‘1)))
45		eqid 2761	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))
46		fvex 6894	. . . . . . . . . . . . . . . 16 ⊢ (∫2‘(𝐹‘1)) ∈ V
47	44, 45, 46	fvmpt 6989	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1)))
48	30, 47	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1))
49	37	ffnd 6706	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ)
50		fnfvelrn 7075	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ ∧ 1 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
51	49, 30, 50	sylancl 597	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
52	48, 51	eqeltrrid 2866	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
53		supxrub 13349	. . . . . . . . . . . . 13 ⊢ ((ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* ∧ (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))) → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
54	38, 52, 53	syl2anc 595	. . . . . . . . . . . 12 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
55	54, 6	breqtrrdi 5152	. . . . . . . . . . 11 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ 𝑆)
56	23, 34, 41, 43, 55	xrletrd 13186	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝑆)
57	56	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 ≤ 𝑆)
58	11, 17	ltaddrpd 13092	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (𝑆 + 𝑡))
59	21, 11, 19, 57, 58	lelttrd 11367	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (𝑆 + 𝑡))
60	59	gt0ne0d 11777	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 + 𝑡) ≠ 0)
61	12, 16, 20, 60	div23d 12027	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) = ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)))
62	11, 19, 60	redivcld 12042	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ∈ ℝ)
63	62, 15	remulcld 11238	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ∈ ℝ)
64		halfre 12456	. . . . . . . . 9 ⊢ (1 / 2) ∈ ℝ
65		ifcl 4532	. . . . . . . . 9 ⊢ (((𝑆 / (𝑆 + 𝑡)) ∈ ℝ ∧ (1 / 2) ∈ ℝ) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
66	62, 64, 65	sylancl 597	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ ℝ)
67	66, 15	remulcld 11238	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ∈ ℝ)
68		max2 13212	. . . . . . . . 9 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
69	64, 62, 68	sylancr 598	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
70	7, 14	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ)
71	70	rexrd 11258	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ*)
72		xrltnle 11275	. . . . . . . . . . . . 13 ⊢ ((𝑆 ∈ ℝ* ∧ (∫1‘𝑃) ∈ ℝ*) → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
73	41, 71, 72	syl2anc 595	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
74	9, 73	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 < (∫1‘𝑃))
75	74	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < (∫1‘𝑃))
76	21, 11, 15, 57, 75	lelttrd 11367	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (∫1‘𝑃))
77		lemul1 12066	. . . . . . . . 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 1399	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ↔ ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃))))
79	69, 78	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
80	2	adantlr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ MblFn)
81	3	adantlr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
82	4	adantlr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∘r ≤ (𝐹‘(𝑛 + 1)))
83	5	adantlr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑡 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → ∃𝑦 ∈ ℝ ∀𝑛 ∈ ℕ ((𝐹‘𝑛)‘𝑥) ≤ 𝑦)
84	64	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ∈ ℝ)
85		halfgt0 12458	. . . . . . . . . . 11 ⊢ 0 < (1 / 2)
86	85	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (1 / 2))
87		max1 13210	. . . . . . . . . . 11 ⊢ (((1 / 2) ∈ ℝ ∧ (𝑆 / (𝑆 + 𝑡)) ∈ ℝ) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
88	64, 62, 87	sylancr 598	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (1 / 2) ≤ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
89	21, 84, 66, 86, 88	ltletrd 11369	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)))
90	20	mulridd 11225	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 + 𝑡) · 1) = (𝑆 + 𝑡))
91	58, 90	breqtrrd 5138	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑆 < ((𝑆 + 𝑡) · 1))
92		1red 11208	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 1 ∈ ℝ)
93		ltdivmul 12089	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ ℝ ∧ 1 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
94	11, 92, 19, 59, 93	syl112anc 1399	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ 𝑆 < ((𝑆 + 𝑡) · 1)))
95	91, 94	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 / (𝑆 + 𝑡)) < 1)
96		halflt1 12460	. . . . . . . . . 10 ⊢ (1 / 2) < 1
97		breq1 5111	. . . . . . . . . . 11 ⊢ ((𝑆 / (𝑆 + 𝑡)) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((𝑆 / (𝑆 + 𝑡)) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
98		breq1 5111	. . . . . . . . . . 11 ⊢ ((1 / 2) = if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) → ((1 / 2) < 1 ↔ if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1))
99	97, 98	ifboth 4526	. . . . . . . . . 10 ⊢ (((𝑆 / (𝑆 + 𝑡)) < 1 ∧ (1 / 2) < 1) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
100	95, 96, 99	sylancl 597	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) < 1)
101		1xr 11267	. . . . . . . . . 10 ⊢ 1 ∈ ℝ*
102		elioo2 13412	. . . . . . . . . 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 704	. . . . . . . . 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 1360	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) ∈ (0(,)1))
105	8	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 𝑃 ∘r ≤ 𝐺)
106		fveq2 6881	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → (𝑃‘𝑦) = (𝑃‘𝑥))
107	106	oveq2d 7426	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) = (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)))
108		fveq2 6881	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑥 → ((𝐹‘𝑛)‘𝑦) = ((𝐹‘𝑛)‘𝑥))
109	107, 108	breq12d 5121	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → ((if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦) ↔ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)))
110	109	cbvrabv 3424	. . . . . . . . 9 ⊢ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)} = {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)}
111	110	mpteq2i 5206	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ {𝑦 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑦)) ≤ ((𝐹‘𝑛)‘𝑦)}) = (𝑛 ∈ ℕ ↦ {𝑥 ∈ ℝ ∣ (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (𝑃‘𝑥)) ≤ ((𝐹‘𝑛)‘𝑥)})
112	1, 80, 81, 82, 83, 6, 104, 13, 105, 11, 111	itg2monolem1 25888	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)) ≤ 𝑆)
113	63, 67, 11, 79, 112	letrd 11366	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 / (𝑆 + 𝑡)) · (∫1‘𝑃)) ≤ 𝑆)
114	61, 113	eqbrtrd 5132	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆)
115	11, 15	remulcld 11238	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ∈ ℝ)
116		ledivmul2 12093	. . . . . 6 ⊢ (((𝑆 · (∫1‘𝑃)) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ ((𝑆 + 𝑡) ∈ ℝ ∧ 0 < (𝑆 + 𝑡))) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
117	115, 11, 19, 59, 116	syl112anc 1399	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (((𝑆 · (∫1‘𝑃)) / (𝑆 + 𝑡)) ≤ 𝑆 ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
118	114, 117	mpbid 235	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡)))
119	66, 15, 89, 76	mulgt0d 11364	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < (if((1 / 2) ≤ (𝑆 / (𝑆 + 𝑡)), (𝑆 / (𝑆 + 𝑡)), (1 / 2)) · (∫1‘𝑃)))
120	21, 67, 11, 119, 112	ltletrd 11369	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → 0 < 𝑆)
121		lemul2 12067	. . . . 5 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ (𝑆 + 𝑡) ∈ ℝ ∧ (𝑆 ∈ ℝ ∧ 0 < 𝑆)) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
122	15, 19, 11, 120, 121	syl112anc 1399	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → ((∫1‘𝑃) ≤ (𝑆 + 𝑡) ↔ (𝑆 · (∫1‘𝑃)) ≤ (𝑆 · (𝑆 + 𝑡))))
123	118, 122	mpbird 260	. . 3 ⊢ ((𝜑 ∧ 𝑡 ∈ ℝ+) → (∫1‘𝑃) ≤ (𝑆 + 𝑡))
124	123	ralrimiva 3155	. 2 ⊢ (𝜑 → ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡))
125		alrple 13231	. . 3 ⊢ (((∫1‘𝑃) ∈ ℝ ∧ 𝑆 ∈ ℝ) → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
126	70, 10, 125	syl2anc 595	. 2 ⊢ (𝜑 → ((∫1‘𝑃) ≤ 𝑆 ↔ ∀𝑡 ∈ ℝ+ (∫1‘𝑃) ≤ (𝑆 + 𝑡)))
127	124, 126	mpbird 260	1 ⊢ (𝜑 → (∫1‘𝑃) ≤ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1568   ∈ wcel 2141  ∀wral 3077  ∃wrex 3087  {crab 3414   ⊆ wss 3904  ifcif 4486   class class class wbr 5108   ↦ cmpt 5191  dom cdm 5661  ran crn 5662   Fn wfn 6531  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410   ∘_r cofr 7673  supcsup 9399  ℝcr 11098  0cc0 11099  1c1 11100   + caddc 11102   · cmul 11104  +∞cpnf 11239  ℝ^*cxr 11241   < clt 11242   ≤ cle 11243   / cdiv 11870  ℕcn 12232  2c2 12294  ℝ⁺crp 13015  (,)cioo 13371  [,)cico 13373  [,]cicc 13374  MblFncmbf 25752  ∫₁citg1 25753  ∫₂citg2 25754

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-inf2 9609  ax-cc 10418  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-disj 5076  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7674  df-ofr 7675  df-om 7862  df-1st 7985  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-2o 8453  df-oadd 8456  df-omul 8457  df-er 8693  df-map 8825  df-pm 8826  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-fi 9370  df-sup 9401  df-inf 9402  df-oi 9471  df-dju 9886  df-card 9924  df-acn 9927  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-nn 12233  df-2 12302  df-3 12303  df-n0 12504  df-z 12591  df-uz 12862  df-q 12972  df-rp 13016  df-xneg 13136  df-xadd 13137  df-xmul 13138  df-ioo 13375  df-ioc 13376  df-ico 13377  df-icc 13378  df-fz 13535  df-fzo 13683  df-fl 13825  df-seq 14038  df-exp 14098  df-hash 14367  df-cj 15150  df-re 15151  df-im 15152  df-sqrt 15286  df-abs 15287  df-clim 15539  df-rlim 15540  df-sum 15738  df-rest 17474  df-topgen 17495  df-psmet 21493  df-xmet 21494  df-met 21495  df-bl 21496  df-mopn 21497  df-top 23030  df-topon 23047  df-bases 23082  df-cmp 23523  df-ovol 25602  df-vol 25603  df-mbf 25757  df-itg1 25758  df-itg2 25759

This theorem is referenced by:  itg2mono  25891