Theorem itg2monolem2 26077

Description: Lemma for itg2mono 26079. (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
itg2monolem2	⊢ (𝜑 → 𝑆 ∈ ℝ)

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

Proof of Theorem itg2monolem2

Step	Hyp	Ref	Expression
1		itg2mono.6	. . 3 ⊢ 𝑆 = sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < )
2		itg2mono.3	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,)+∞))
3		icossicc 13570	. . . . . . . 8 ⊢ (0[,)+∞) ⊆ (0[,]+∞)
4		fss 6726	. . . . . . . 8 ⊢ (((𝐹‘𝑛):ℝ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ (0[,]+∞)) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
5	2, 3, 4	sylancl 598	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛):ℝ⟶(0[,]+∞))
6		itg2cl 26058	. . . . . . 7 ⊢ ((𝐹‘𝑛):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
7	5, 6	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫2‘(𝐹‘𝑛)) ∈ ℝ*)
8	7	fmpttd 7115	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))):ℕ⟶ℝ*)
9	8	frnd 6718	. . . 4 ⊢ (𝜑 → ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ*)
10		supxrcl 13448	. . . 4 ⊢ (ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
11	9, 10	syl 18	. . 3 ⊢ (𝜑 → sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ) ∈ ℝ*)
12	1, 11	eqeltrid 2864	. 2 ⊢ (𝜑 → 𝑆 ∈ ℝ*)
13		itg2monolem2.7	. . 3 ⊢ (𝜑 → 𝑃 ∈ dom ∫1)
14		itg1cl 26011	. . 3 ⊢ (𝑃 ∈ dom ∫1 → (∫1‘𝑃) ∈ ℝ)
15	13, 14	syl 18	. 2 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ)
16		mnfxr 11369	. . . 4 ⊢ -∞ ∈ ℝ*
17	16	a1i 11	. . 3 ⊢ (𝜑 → -∞ ∈ ℝ*)
18		fveq2 6885	. . . . . 6 ⊢ (𝑛 = 1 → (𝐹‘𝑛) = (𝐹‘1))
19	18	feq1d 6691	. . . . 5 ⊢ (𝑛 = 1 → ((𝐹‘𝑛):ℝ⟶(0[,]+∞) ↔ (𝐹‘1):ℝ⟶(0[,]+∞)))
20	5	ralrimiva 3154	. . . . 5 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝐹‘𝑛):ℝ⟶(0[,]+∞))
21		1nn 12349	. . . . . 6 ⊢ 1 ∈ ℕ
22	21	a1i 11	. . . . 5 ⊢ (𝜑 → 1 ∈ ℕ)
23	19, 20, 22	rspcdva 3577	. . . 4 ⊢ (𝜑 → (𝐹‘1):ℝ⟶(0[,]+∞))
24		itg2cl 26058	. . . 4 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → (∫2‘(𝐹‘1)) ∈ ℝ*)
25	23, 24	syl 18	. . 3 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ℝ*)
26		itg2ge0 26061	. . . . 5 ⊢ ((𝐹‘1):ℝ⟶(0[,]+∞) → 0 ≤ (∫2‘(𝐹‘1)))
27	23, 26	syl 18	. . . 4 ⊢ (𝜑 → 0 ≤ (∫2‘(𝐹‘1)))
28		mnflt0 13257	. . . . 5 ⊢ -∞ < 0
29		0xr 11359	. . . . . 6 ⊢ 0 ∈ ℝ*
30		xrltletr 13289	. . . . . 6 ⊢ ((-∞ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ (∫2‘(𝐹‘1)) ∈ ℝ*) → ((-∞ < 0 ∧ 0 ≤ (∫2‘(𝐹‘1))) → -∞ < (∫2‘(𝐹‘1))))
31	16, 29, 25, 30	mp3an12i 1494	. . . . 5 ⊢ (𝜑 → ((-∞ < 0 ∧ 0 ≤ (∫2‘(𝐹‘1))) → -∞ < (∫2‘(𝐹‘1))))
32	28, 31	mpani 709	. . . 4 ⊢ (𝜑 → (0 ≤ (∫2‘(𝐹‘1)) → -∞ < (∫2‘(𝐹‘1))))
33	27, 32	mpd 16	. . 3 ⊢ (𝜑 → -∞ < (∫2‘(𝐹‘1)))
34		2fveq3 6890	. . . . . . . 8 ⊢ (𝑛 = 1 → (∫2‘(𝐹‘𝑛)) = (∫2‘(𝐹‘1)))
35		eqid 2760	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) = (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))
36		fvex 6898	. . . . . . . 8 ⊢ (∫2‘(𝐹‘1)) ∈ V
37	34, 35, 36	fvmpt 6993	. . . . . . 7 ⊢ (1 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1)))
38	21, 37	ax-mp 5	. . . . . 6 ⊢ ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) = (∫2‘(𝐹‘1))
39	8	ffnd 6710	. . . . . . 7 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ)
40		fnfvelrn 7080	. . . . . . 7 ⊢ (((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) Fn ℕ ∧ 1 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
41	39, 21, 40	sylancl 598	. . . . . 6 ⊢ (𝜑 → ((𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))‘1) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
42	38, 41	eqeltrrid 2865	. . . . 5 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))))
43		supxrub 13457	. . . . 5 ⊢ ((ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))) ⊆ ℝ* ∧ (∫2‘(𝐹‘1)) ∈ ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛)))) → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
44	9, 42, 43	syl2anc 596	. . . 4 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ sup(ran (𝑛 ∈ ℕ ↦ (∫2‘(𝐹‘𝑛))), ℝ*, < ))
45	44, 1	breqtrrdi 5146	. . 3 ⊢ (𝜑 → (∫2‘(𝐹‘1)) ≤ 𝑆)
46	17, 25, 12, 33, 45	xrltletrd 13293	. 2 ⊢ (𝜑 → -∞ < 𝑆)
47	15	rexrd 11362	. . 3 ⊢ (𝜑 → (∫1‘𝑃) ∈ ℝ*)
48		itg2monolem2.9	. . . 4 ⊢ (𝜑 → ¬ (∫1‘𝑃) ≤ 𝑆)
49		xrltnle 11379	. . . . 5 ⊢ ((𝑆 ∈ ℝ* ∧ (∫1‘𝑃) ∈ ℝ*) → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
50	12, 47, 49	syl2anc 596	. . . 4 ⊢ (𝜑 → (𝑆 < (∫1‘𝑃) ↔ ¬ (∫1‘𝑃) ≤ 𝑆))
51	48, 50	mpbird 260	. . 3 ⊢ (𝜑 → 𝑆 < (∫1‘𝑃))
52	12, 47, 51	xrltled 13282	. 2 ⊢ (𝜑 → 𝑆 ≤ (∫1‘𝑃))
53		xrre 13302	. 2 ⊢ (((𝑆 ∈ ℝ* ∧ (∫1‘𝑃) ∈ ℝ) ∧ (-∞ < 𝑆 ∧ 𝑆 ≤ (∫1‘𝑃))) → 𝑆 ∈ ℝ)
54	12, 15, 46, 52, 53	syl22anc 852	1 ⊢ (𝜑 → 𝑆 ∈ ℝ)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086   ⊆ wss 3895   class class class wbr 5102   ↦ cmpt 5185  dom cdm 5650  ran crn 5651   Fn wfn 6533  ⟶wf 6534  ‘cfv 6538  (class class class)co 7420   ∘_r cofr 7692  supcsup 9435  ℝcr 11202  0cc0 11203  1c1 11204   + caddc 11206  +∞cpnf 11343  -∞cmnf 11344  ℝ^*cxr 11345   < clt 11346   ≤ cle 11347  ℕcn 12338  [,)cico 13481  [,]cicc 13482  MblFncmbf 25940  ∫₁citg1 25941  ∫₂citg2 25942

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 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-inf2 9645  ax-cnex 11259  ax-resscn 11260  ax-1cn 11261  ax-icn 11262  ax-addcl 11263  ax-addrcl 11264  ax-mulcl 11265  ax-mulrcl 11266  ax-mulcom 11267  ax-addass 11268  ax-mulass 11269  ax-distr 11270  ax-i2m1 11271  ax-1ne0 11272  ax-1rid 11273  ax-rnegex 11274  ax-rrecex 11275  ax-cnre 11276  ax-pre-lttri 11277  ax-pre-lttrn 11278  ax-pre-ltadd 11279  ax-pre-mulgt0 11280  ax-pre-sup 11281

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 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-int 4907  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-of 7693  df-ofr 7694  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8302  df-wrecs 8333  df-recs 8382  df-rdg 8421  df-1o 8479  df-2o 8480  df-er 8720  df-map 8852  df-pm 8853  df-en 8977  df-dom 8978  df-sdom 8979  df-fin 8980  df-sup 9437  df-inf 9438  df-oi 9507  df-dju 9985  df-card 10023  df-pnf 11348  df-mnf 11349  df-xr 11350  df-ltxr 11351  df-le 11352  df-sub 11546  df-neg 11547  df-div 11977  df-nn 12339  df-2 12408  df-3 12409  df-n0 12610  df-z 12697  df-uz 12969  df-q 13079  df-rp 13124  df-xadd 13245  df-ioo 13483  df-ico 13485  df-icc 13486  df-fz 13643  df-fzo 13792  df-fl 13935  df-seq 14148  df-exp 14208  df-hash 14478  df-cj 15271  df-re 15272  df-im 15273  df-sqrt 15407  df-abs 15408  df-clim 15660  df-sum 15859  df-xmet 21676  df-met 21677  df-ovol 25790  df-vol 25791  df-mbf 25945  df-itg1 25946  df-itg2 25947

This theorem is used by:  itg2monolem3  26078