Theorem infcvglem3 7175

Description: Lemma for infcvg 7176. Using climsqueeze 7093, show that sequence F, constructed from f, converges to the supremum.

Hypotheses

Ref	Expression
infcvg.1	|- R = {x | E.y e. X x = -uA}
infcvg.2	|- (y e. X -> A e. RR)
infcvg.3	|- Z e. X
infcvg.4	|- E.z e. RR A.w e. R w <_ z
infcvg.5c	|- S = -usup(R, RR, < )
infcvg.9	|- G e. V
infcvg.10	|- (k e. NN -> (G` k) = (S + (1 / k)))
infcvg.11	|- H e. V
infcvg.12	|- (k e. NN -> (H` k) = (1 / k))
infcvg.6a	|- F e. V
infcvg.7a	|- (y = (f` k) -> A = B)
infcvg.8a	|- (k e. NN -> (F` k) = B)

Assertion

Ref	Expression
infcvglem3	|- E.f(f:NN-->X /\ F ~~> S)

Distinct variable groups:   x,f,A   x,y,B   k,F   k,G   k,H   z,w,R   f,k,S,y   f,X   x,k,y,X   x,Z,y   y,S

Proof of Theorem infcvglem3

Step	Hyp	Ref	Expression
1		infcvg.1	. . 3 |- R = {x | E.y e. X x = -uA}
2		infcvg.2	. . 3 |- (y e. X -> A e. RR)
3		infcvg.3	. . 3 |- Z e. X
4		infcvg.4	. . 3 |- E.z e. RR A.w e. R w <_ z
5		infcvg.5c	. . 3 |- S = -usup(R, RR, < )
6		infcvg.7a	. . 3 |- (y = (f` k) -> A = B)
7	1, 2, 3, 4, 5, 6	infcvglem1 7173	. 2 |- E.f(f:NN-->X /\ A.k e. NN B < (S + (1 / k)))
8		pm3.26 319	. . . 4 |- ((f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> f:NN-->X)
9		infcvg.8a	. . . . . . . . . . . 12 |- (k e. NN -> (F` k) = B)
10		infcvg.10	. . . . . . . . . . . 12 |- (k e. NN -> (G` k) = (S + (1 / k)))
11	9, 10	breq12d 2627	. . . . . . . . . . 11 |- (k e. NN -> ((F` k) < (G` k) <-> B < (S + (1 / k))))
12	11	adantl 388	. . . . . . . . . 10 |- ((f:NN-->X /\ k e. NN) -> ((F` k) < (G` k) <-> B < (S + (1 / k))))
13		ltlet 5503	. . . . . . . . . . 11 |- (((F` k) e. RR /\ (G` k) e. RR) -> ((F` k) < (G` k) -> (F` k) <_ (G` k)))
14	9	adantl 388	. . . . . . . . . . . 12 |- ((f:NN-->X /\ k e. NN) -> (F` k) = B)
15		ffvelrn 3809	. . . . . . . . . . . . 13 |- ((f:NN-->X /\ k e. NN) -> (f` k) e. X)
16	6	eleq1d 1538	. . . . . . . . . . . . . 14 |- (y = (f` k) -> (A e. RR <-> B e. RR))
17	16, 2	vtoclga 1849	. . . . . . . . . . . . 13 |- ((f` k) e. X -> B e. RR)
18	15, 17	syl 10	. . . . . . . . . . . 12 |- ((f:NN-->X /\ k e. NN) -> B e. RR)
19	14, 18	eqeltrd 1546	. . . . . . . . . . 11 |- ((f:NN-->X /\ k e. NN) -> (F` k) e. RR)
20		nnrecret 6227	. . . . . . . . . . . . . 14 |- (k e. NN -> (1 / k) e. RR)
21	1, 2, 3, 4	infcvgaux1 7171	. . . . . . . . . . . . . . . . . 18 |- (R (_ RR /\ R =/= (/) /\ E.z e. RR A.w e. R w <_ z)
22	21	suprcli 6018	. . . . . . . . . . . . . . . . 17 |- sup(R, RR, < ) e. RR
23	22	renegcl 5399	. . . . . . . . . . . . . . . 16 |- -usup(R, RR, < ) e. RR
24	5, 23	eqeltr 1542	. . . . . . . . . . . . . . 15 |- S e. RR
25		axaddrcl 5255	. . . . . . . . . . . . . . 15 |- ((S e. RR /\ (1 / k) e. RR) -> (S + (1 / k)) e. RR)
26	24, 25	mpan 694	. . . . . . . . . . . . . 14 |- ((1 / k) e. RR -> (S + (1 / k)) e. RR)
27	20, 26	syl 10	. . . . . . . . . . . . 13 |- (k e. NN -> (S + (1 / k)) e. RR)
28	10, 27	eqeltrd 1546	. . . . . . . . . . . 12 |- (k e. NN -> (G` k) e. RR)
29	28	adantl 388	. . . . . . . . . . 11 |- ((f:NN-->X /\ k e. NN) -> (G` k) e. RR)
30	13, 19, 29	sylanc 471	. . . . . . . . . 10 |- ((f:NN-->X /\ k e. NN) -> ((F` k) < (G` k) -> (F` k) <_ (G` k)))
31	12, 30	sylbird 205	. . . . . . . . 9 |- ((f:NN-->X /\ k e. NN) -> (B < (S + (1 / k)) -> (F` k) <_ (G` k)))
32	1, 2, 3, 4, 5, 6	infcvgaux2 7172	. . . . . . . . . . . . . 14 |- ((f` k) e. X -> S <_ B)
33	15, 32	syl 10	. . . . . . . . . . . . 13 |- ((f:NN-->X /\ k e. NN) -> S <_ B)
34	33, 14	breqtrrd 2637	. . . . . . . . . . . 12 |- ((f:NN-->X /\ k e. NN) -> S <_ (F` k))
35	34	a1d 12	. . . . . . . . . . 11 |- ((f:NN-->X /\ k e. NN) -> ((F` k) <_ (G` k) -> S <_ (F` k)))
36	35	ancrd 299	. . . . . . . . . 10 |- ((f:NN-->X /\ k e. NN) -> ((F` k) <_ (G` k) -> (S <_ (F` k) /\ (F` k) <_ (G` k))))
37	29, 19	jca 288	. . . . . . . . . 10 |- ((f:NN-->X /\ k e. NN) -> ((G` k) e. RR /\ (F` k) e. RR))
38	36, 37	jctild 600	. . . . . . . . 9 |- ((f:NN-->X /\ k e. NN) -> ((F` k) <_ (G` k) -> (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k)))))
39	31, 38	syld 27	. . . . . . . 8 |- ((f:NN-->X /\ k e. NN) -> (B < (S + (1 / k)) -> (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k)))))
40	39	r19.20dva 1707	. . . . . . 7 |- (f:NN-->X -> (A.k e. NN B < (S + (1 / k)) -> A.k e. NN (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k)))))
41	40	imp 350	. . . . . 6 |- ((f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> A.k e. NN (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))))
42		nnuz 6384	. . . . . . 7 |- NN = (ZZ>` 1)
43		raleq1 1784	. . . . . . 7 |- (NN = (ZZ>` 1) -> (A.k e. NN (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))) <-> A.k e. (ZZ>` 1)(((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k)))))
44	42, 43	ax-mp 7	. . . . . 6 |- (A.k e. NN (((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))) <-> A.k e. (ZZ>` 1)(((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))))
45	41, 44	sylib 198	. . . . 5 |- ((f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> A.k e. (ZZ>` 1)(((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))))
46		infcvg.9	. . . . . . 7 |- G e. V
47		infcvg.11	. . . . . . 7 |- H e. V
48		infcvg.12	. . . . . . 7 |- (k e. NN -> (H` k) = (1 / k))
49	1, 2, 3, 4, 5, 46, 10, 47, 48	infcvglem2 7174	. . . . . 6 |- G ~~> S
50		1z 6116	. . . . . 6 |- 1 e. ZZ
51		infcvg.6a	. . . . . . 7 |- F e. V
52	24	elisseti 1815	. . . . . . 7 |- S e. V
53	46, 51, 52	climsqueeze2 7094	. . . . . 6 |- ((G ~~> S /\ 1 e. ZZ /\ A.k e. (ZZ>` 1)(((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k)))) -> F ~~> S)
54	49, 50, 53	mp3an12 905	. . . . 5 |- (A.k e. (ZZ>` 1)(((G` k) e. RR /\ (F` k) e. RR) /\ (S <_ (F` k) /\ (F` k) <_ (G` k))) -> F ~~> S)
55	45, 54	syl 10	. . . 4 |- ((f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> F ~~> S)
56	8, 55	jca 288	. . 3 |- ((f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> (f:NN-->X /\ F ~~> S))
57	56	19.22i 1039	. 2 |- (E.f(f:NN-->X /\ A.k e. NN B < (S + (1 / k))) -> E.f(f:NN-->X /\ F ~~> S))
58	7, 57	ax-mp 7	1 |- E.f(f:NN-->X /\ F ~~> S)

Syntax hints:   -> wi 3   <-> wb 146   /\ wa 223   = wceq 955   e. wcel 957  E.wex 979  {cab 1462  A.wral 1643  E.wrex 1644  Vcvv 1808   class class class wbr 2615  -->wf 3174  ` cfv 3178  (class class class)co 3958  supcsup 4556  RRcr 5216  1c1 5218   + caddc 5220  -ucneg 5276   / cdiv 5277   <_ cle 5278  NNcn 5279  ZZcz 5281   < clt 5469  ZZ>cuz 6362   ~~> cli 6927

This theorem is referenced by:  infcvg 7176

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 961  ax-gen 962  ax-8 963  ax-9 964  ax-10 965  ax-11 966  ax-12 967  ax-13 968  ax-14 969  ax-17 970  ax-4 972  ax-5o 974  ax-6o 977  ax-9o 1122  ax-10o 1139  ax-16 1209  ax-11o 1217  ax-ext 1458  ax-rep 2689  ax-sep 2699  ax-nul 2706  ax-pow 2738  ax-pr 2775  ax-un 2862  ax-reg 4576  ax-inf2 4608  ax-ac 4727

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 775  df-3an 776  df-ex 980  df-sb 1171  df-eu 1381  df-mo 1382  df-clab 1463  df-cleq 1468  df-clel 1471  df-ne 1585  df-nel 1586  df-ral 1647