Theorem resqrexlemgt0 9618

Description: Lemma for resqrex 9624. A limit is nonnegative. (Contributed by Jim Kingdon, 7-Aug-2021.)

Hypotheses

Ref	Expression
resqrexlemex.seq	⊢ 𝐹 = seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)
resqrexlemex.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
resqrexlemex.agt0	⊢ (𝜑 → 0 ≤ 𝐴)
resqrexlemgt0.rr	⊢ (𝜑 → 𝐿 ∈ ℝ)
resqrexlemgt0.lim	⊢ (𝜑 → ∀𝑒 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))

Assertion

Ref	Expression
resqrexlemgt0	⊢ (𝜑 → 0 ≤ 𝐿)

Distinct variable groups:   𝑦,𝐴,𝑧   𝑒,𝐹   𝑒,𝐿,𝑖,𝑗   𝜑,𝑖,𝑗   𝑧,𝑗,𝜑   𝜑,𝑦

Allowed substitution hints:   𝜑(𝑒)   𝐴(𝑒,𝑖,𝑗)   𝐹(𝑦,𝑧,𝑖,𝑗)   𝐿(𝑦,𝑧)

Proof of Theorem resqrexlemgt0

Step	Hyp	Ref	Expression
1		resqrexlemgt0.rr	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 ∈ ℝ)
2	1	adantr 261	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐿 < 0) → 𝐿 ∈ ℝ)
3	2	renegcld 7378	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐿 < 0) → -𝐿 ∈ ℝ)
4	1	lt0neg1d 7507	. . . . . . . 8 ⊢ (𝜑 → (𝐿 < 0 ↔ 0 < -𝐿))
5	4	biimpa 280	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐿 < 0) → 0 < -𝐿)
6	3, 5	elrpd 8620	. . . . . 6 ⊢ ((𝜑 ∧ 𝐿 < 0) → -𝐿 ∈ ℝ+)
7		resqrexlemgt0.lim	. . . . . . 7 ⊢ (𝜑 → ∀𝑒 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))
8	7	adantr 261	. . . . . 6 ⊢ ((𝜑 ∧ 𝐿 < 0) → ∀𝑒 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))
9		oveq2 5520	. . . . . . . . . 10 ⊢ (𝑒 = -𝐿 → (𝐿 + 𝑒) = (𝐿 + -𝐿))
10	9	breq2d 3776	. . . . . . . . 9 ⊢ (𝑒 = -𝐿 → ((𝐹‘𝑖) < (𝐿 + 𝑒) ↔ (𝐹‘𝑖) < (𝐿 + -𝐿)))
11		oveq2 5520	. . . . . . . . . 10 ⊢ (𝑒 = -𝐿 → ((𝐹‘𝑖) + 𝑒) = ((𝐹‘𝑖) + -𝐿))
12	11	breq2d 3776	. . . . . . . . 9 ⊢ (𝑒 = -𝐿 → (𝐿 < ((𝐹‘𝑖) + 𝑒) ↔ 𝐿 < ((𝐹‘𝑖) + -𝐿)))
13	10, 12	anbi12d 442	. . . . . . . 8 ⊢ (𝑒 = -𝐿 → (((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)) ↔ ((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿))))
14	13	rexralbidv 2350	. . . . . . 7 ⊢ (𝑒 = -𝐿 → (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)) ↔ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿))))
15	14	rspcv 2652	. . . . . 6 ⊢ (-𝐿 ∈ ℝ+ → (∀𝑒 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)) → ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿))))
16	6, 8, 15	sylc 56	. . . . 5 ⊢ ((𝜑 ∧ 𝐿 < 0) → ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿)))
17		simpl 102	. . . . . . . 8 ⊢ (((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿)) → (𝐹‘𝑖) < (𝐿 + -𝐿))
18	2	recnd 7054	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐿 < 0) → 𝐿 ∈ ℂ)
19	18	negidd 7312	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐿 < 0) → (𝐿 + -𝐿) = 0)
20	19	breq2d 3776	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐿 < 0) → ((𝐹‘𝑖) < (𝐿 + -𝐿) ↔ (𝐹‘𝑖) < 0))
21	17, 20	syl5ib 143	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐿 < 0) → (((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿)) → (𝐹‘𝑖) < 0))
22	21	ralimdv 2388	. . . . . 6 ⊢ ((𝜑 ∧ 𝐿 < 0) → (∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿)) → ∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0))
23	22	reximdv 2420	. . . . 5 ⊢ ((𝜑 ∧ 𝐿 < 0) → (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)((𝐹‘𝑖) < (𝐿 + -𝐿) ∧ 𝐿 < ((𝐹‘𝑖) + -𝐿)) → ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0))
24	16, 23	mpd 13	. . . 4 ⊢ ((𝜑 ∧ 𝐿 < 0) → ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0)
25		0red 7028	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → 0 ∈ ℝ)
26		eluznn 8538	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗)) → 𝑖 ∈ ℕ)
27		resqrexlemex.seq	. . . . . . . . . . . . . . 15 ⊢ 𝐹 = seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)
28		resqrexlemex.a	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐴 ∈ ℝ)
29		resqrexlemex.agt0	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ 𝐴)
30	27, 28, 29	resqrexlemf 9605	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐹:ℕ⟶ℝ+)
31	30	ffvelrnda 5302	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ ℝ+)
32	26, 31	sylan2 270	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → (𝐹‘𝑖) ∈ ℝ+)
33	32	rpred 8622	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → (𝐹‘𝑖) ∈ ℝ)
34	32	rpgt0d 8625	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → 0 < (𝐹‘𝑖))
35	25, 33, 34	ltnsymd 7136	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → ¬ (𝐹‘𝑖) < 0)
36	35	pm2.21d 549	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑖) < 0 → ⊥))
37	36	anassrs 380	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑗 ∈ ℕ) ∧ 𝑖 ∈ (ℤ≥‘𝑗)) → ((𝐹‘𝑖) < 0 → ⊥))
38	37	ralimdva 2387	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0 → ∀𝑖 ∈ (ℤ≥‘𝑗)⊥))
39		nnz 8264	. . . . . . . . 9 ⊢ (𝑗 ∈ ℕ → 𝑗 ∈ ℤ)
40		uzid 8487	. . . . . . . . . 10 ⊢ (𝑗 ∈ ℤ → 𝑗 ∈ (ℤ≥‘𝑗))
41		elex2 2570	. . . . . . . . . 10 ⊢ (𝑗 ∈ (ℤ≥‘𝑗) → ∃𝑧 𝑧 ∈ (ℤ≥‘𝑗))
42		r19.3rmv 3312	. . . . . . . . . 10 ⊢ (∃𝑧 𝑧 ∈ (ℤ≥‘𝑗) → (⊥ ↔ ∀𝑖 ∈ (ℤ≥‘𝑗)⊥))
43	40, 41, 42	3syl 17	. . . . . . . . 9 ⊢ (𝑗 ∈ ℤ → (⊥ ↔ ∀𝑖 ∈ (ℤ≥‘𝑗)⊥))
44	39, 43	syl 14	. . . . . . . 8 ⊢ (𝑗 ∈ ℕ → (⊥ ↔ ∀𝑖 ∈ (ℤ≥‘𝑗)⊥))
45	44	adantl 262	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (⊥ ↔ ∀𝑖 ∈ (ℤ≥‘𝑗)⊥))
46	38, 45	sylibrd 158	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0 → ⊥))
47	46	rexlimdva 2433	. . . . 5 ⊢ (𝜑 → (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0 → ⊥))
48	47	adantr 261	. . . 4 ⊢ ((𝜑 ∧ 𝐿 < 0) → (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ≥‘𝑗)(𝐹‘𝑖) < 0 → ⊥))
49	24, 48	mpd 13	. . 3 ⊢ ((𝜑 ∧ 𝐿 < 0) → ⊥)
50	49	inegd 1263	. 2 ⊢ (𝜑 → ¬ 𝐿 < 0)
51		0re 7027	. . 3 ⊢ 0 ∈ ℝ
52		lenlt 7094	. . 3 ⊢ ((0 ∈ ℝ ∧ 𝐿 ∈ ℝ) → (0 ≤ 𝐿 ↔ ¬ 𝐿 < 0))
53	51, 1, 52	sylancr 393	. 2 ⊢ (𝜑 → (0 ≤ 𝐿 ↔ ¬ 𝐿 < 0))
54	50, 53	mpbird 156	1 ⊢ (𝜑 → 0 ≤ 𝐿)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 97   ↔ wb 98   = wceq 1243  ⊥wfal 1248  ∃wex 1381   ∈ wcel 1393  ∀wral 2306  ∃wrex 2307  {csn 3375   class class class wbr 3764   × cxp 4343  ‘cfv 4902  (class class class)co 5512   ↦ cmpt2 5514  ℝcr 6888  0cc0 6889  1c1 6890   + caddc 6892   < clt 7060   ≤ cle 7061  -cneg 7183   / cdiv 7651  ℕcn 7914  2c2 7964  ℤcz 8245  ℤ_≥cuz 8473  ℝ⁺crp 8583  seqcseq 9211

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-13 1404  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-coll 3872  ax-sep 3875  ax-nul 3883  ax-pow 3927  ax-pr 3944  ax-un 4170  ax-setind 4262  ax-iinf 4311  ax-cnex 6975  ax-resscn 6976  ax-1cn 6977  ax-1re 6978  ax-icn 6979  ax-addcl 6980  ax-addrcl 6981  ax-mulcl 6982  ax-mulrcl 6983  ax-addcom 6984  ax-mulcom 6985  ax-addass 6986  ax-mulass 6987  ax-distr 6988  ax-i2m1 6989  ax-1rid 6991  ax-0id 6992  ax-rnegex 6993  ax-precex 6994  ax-cnre 6995  ax-pre-ltirr 6996  ax-pre-ltwlin 6997  ax-pre-lttrn 6998  ax-pre-apti 6999  ax-pre-ltadd 7000  ax-pre-mulgt0 7001  ax-pre-mulext 7002

This theorem depends on definitions:  df-bi 110  df-dc 743  df-3or 886  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-nel 2207  df-ral 2311  df-rex 2312  df-reu 2313  df-rmo 2314  df-rab 2315  df-v 2559  df-sbc 2765  df-csb 2853  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-nul 3225  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-int 3616  df-iun 3659  df-br 3765  df-opab 3819  df-mpt 3820  df-tr 3855  df-eprel 4026  df-id 4030  df-po 4033  df-iso 4034  df-iord 4103  df-on 4105  df-suc 4108  df-iom 4314  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fun 4904  df-fn 4905  df-f 4906  df-f1 4907  df-fo 4908  df-f1o 4909  df-fv 4910  df-riota 5468  df-ov 5515  df-oprab 5516  df-mpt2 5517  df-1st 5767  df-2nd 5768  df-recs 5920  df-irdg 5957  df-frec 5978  df-1o 6001  df-2o 6002  df-oadd 6005  df-omul 6006  df-er 6106  df-ec 6108  df-qs 6112  df-ni 6402  df-pli 6403  df-mi 6404  df-lti 6405  df-plpq 6442  df-mpq 6443  df-enq 6445  df-nqqs 6446  df-plqqs 6447  df-mqqs 6448  df-1nqqs 6449  df-rq 6450  df-ltnqqs 6451  df-enq0 6522  df-nq0 6523  df-0nq0 6524  df-plq0 6525  df-mq0 6526  df-inp 6564  df-i1p 6565  df-iplp 6566  df-iltp 6568  df-enr 6811  df-nr 6812  df-ltr 6815  df-0r 6816  df-1r 6817  df-0 6896  df-1 6897  df-r 6899  df-lt 6902  df-pnf 7062  df-mnf 7063  df-xr 7064  df-ltxr 7065  df-le 7066  df-sub 7184  df-neg 7185  df-reap 7566  df-ap 7573  df-div 7652  df-inn 7915  df-2 7973  df-n0 8182  df-z 8246  df-uz 8474  df-rp 8584  df-iseq 9212

This theorem is referenced by:  resqrexlemglsq  9620  resqrexlemex  9623