Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  resqrexlemfp1 GIF version

Theorem resqrexlemfp1 9607
 Description: Lemma for resqrex 9624. Recursion rule. This sequence is the ancient method for computing square roots, often known as the babylonian method, although known to many ancient cultures. (Contributed by Mario Carneiro and Jim Kingdon, 27-Jul-2021.)
Hypotheses
Ref Expression
resqrexlemex.seq 𝐹 = seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)
resqrexlemex.a (𝜑𝐴 ∈ ℝ)
resqrexlemex.agt0 (𝜑 → 0 ≤ 𝐴)
Assertion
Ref Expression
resqrexlemfp1 ((𝜑𝑁 ∈ ℕ) → (𝐹‘(𝑁 + 1)) = (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2))
Distinct variable groups:   𝑦,𝐴,𝑧   𝜑,𝑦,𝑧
Allowed substitution hints:   𝐹(𝑦,𝑧)   𝑁(𝑦,𝑧)

Proof of Theorem resqrexlemfp1
Dummy variables 𝑎 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elnnuz 8509 . . . . . 6 (𝑁 ∈ ℕ ↔ 𝑁 ∈ (ℤ‘1))
21biimpi 113 . . . . 5 (𝑁 ∈ ℕ → 𝑁 ∈ (ℤ‘1))
32adantl 262 . . . 4 ((𝜑𝑁 ∈ ℕ) → 𝑁 ∈ (ℤ‘1))
4 reex 7015 . . . . . 6 ℝ ∈ V
5 rpssre 8593 . . . . . 6 + ⊆ ℝ
64, 5ssexi 3895 . . . . 5 + ∈ V
76a1i 9 . . . 4 ((𝜑𝑁 ∈ ℕ) → ℝ+ ∈ V)
8 elnnuz 8509 . . . . . 6 (𝑎 ∈ ℕ ↔ 𝑎 ∈ (ℤ‘1))
9 resqrexlemex.seq . . . . . . 7 𝐹 = seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)
10 resqrexlemex.a . . . . . . 7 (𝜑𝐴 ∈ ℝ)
11 resqrexlemex.agt0 . . . . . . 7 (𝜑 → 0 ≤ 𝐴)
129, 10, 11resqrexlem1arp 9603 . . . . . 6 ((𝜑𝑎 ∈ ℕ) → ((ℕ × {(1 + 𝐴)})‘𝑎) ∈ ℝ+)
138, 12sylan2br 272 . . . . 5 ((𝜑𝑎 ∈ (ℤ‘1)) → ((ℕ × {(1 + 𝐴)})‘𝑎) ∈ ℝ+)
1413adantlr 446 . . . 4 (((𝜑𝑁 ∈ ℕ) ∧ 𝑎 ∈ (ℤ‘1)) → ((ℕ × {(1 + 𝐴)})‘𝑎) ∈ ℝ+)
159, 10, 11resqrexlemp1rp 9604 . . . . 5 ((𝜑 ∧ (𝑎 ∈ ℝ+𝑏 ∈ ℝ+)) → (𝑎(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))𝑏) ∈ ℝ+)
1615adantlr 446 . . . 4 (((𝜑𝑁 ∈ ℕ) ∧ (𝑎 ∈ ℝ+𝑏 ∈ ℝ+)) → (𝑎(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))𝑏) ∈ ℝ+)
173, 7, 14, 16iseqp1 9225 . . 3 ((𝜑𝑁 ∈ ℕ) → (seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)‘(𝑁 + 1)) = ((seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)‘𝑁)(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))((ℕ × {(1 + 𝐴)})‘(𝑁 + 1))))
189fveq1i 5179 . . 3 (𝐹‘(𝑁 + 1)) = (seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)‘(𝑁 + 1))
199fveq1i 5179 . . . 4 (𝐹𝑁) = (seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)‘𝑁)
2019oveq1i 5522 . . 3 ((𝐹𝑁)(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))((ℕ × {(1 + 𝐴)})‘(𝑁 + 1))) = ((seq1((𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}), ℝ+)‘𝑁)(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))((ℕ × {(1 + 𝐴)})‘(𝑁 + 1)))
2117, 18, 203eqtr4g 2097 . 2 ((𝜑𝑁 ∈ ℕ) → (𝐹‘(𝑁 + 1)) = ((𝐹𝑁)(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))((ℕ × {(1 + 𝐴)})‘(𝑁 + 1))))
22 id 19 . . . . . . 7 (𝑦 = 𝑐𝑦 = 𝑐)
23 oveq2 5520 . . . . . . 7 (𝑦 = 𝑐 → (𝐴 / 𝑦) = (𝐴 / 𝑐))
2422, 23oveq12d 5530 . . . . . 6 (𝑦 = 𝑐 → (𝑦 + (𝐴 / 𝑦)) = (𝑐 + (𝐴 / 𝑐)))
2524oveq1d 5527 . . . . 5 (𝑦 = 𝑐 → ((𝑦 + (𝐴 / 𝑦)) / 2) = ((𝑐 + (𝐴 / 𝑐)) / 2))
26 eqidd 2041 . . . . 5 (𝑧 = 𝑑 → ((𝑐 + (𝐴 / 𝑐)) / 2) = ((𝑐 + (𝐴 / 𝑐)) / 2))
2725, 26cbvmpt2v 5584 . . . 4 (𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)) = (𝑐 ∈ ℝ+, 𝑑 ∈ ℝ+ ↦ ((𝑐 + (𝐴 / 𝑐)) / 2))
2827a1i 9 . . 3 ((𝜑𝑁 ∈ ℕ) → (𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)) = (𝑐 ∈ ℝ+, 𝑑 ∈ ℝ+ ↦ ((𝑐 + (𝐴 / 𝑐)) / 2)))
29 id 19 . . . . . 6 (𝑐 = (𝐹𝑁) → 𝑐 = (𝐹𝑁))
30 oveq2 5520 . . . . . 6 (𝑐 = (𝐹𝑁) → (𝐴 / 𝑐) = (𝐴 / (𝐹𝑁)))
3129, 30oveq12d 5530 . . . . 5 (𝑐 = (𝐹𝑁) → (𝑐 + (𝐴 / 𝑐)) = ((𝐹𝑁) + (𝐴 / (𝐹𝑁))))
3231oveq1d 5527 . . . 4 (𝑐 = (𝐹𝑁) → ((𝑐 + (𝐴 / 𝑐)) / 2) = (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2))
3332ad2antrl 459 . . 3 (((𝜑𝑁 ∈ ℕ) ∧ (𝑐 = (𝐹𝑁) ∧ 𝑑 = ((ℕ × {(1 + 𝐴)})‘(𝑁 + 1)))) → ((𝑐 + (𝐴 / 𝑐)) / 2) = (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2))
349, 10, 11resqrexlemf 9605 . . . 4 (𝜑𝐹:ℕ⟶ℝ+)
3534ffvelrnda 5302 . . 3 ((𝜑𝑁 ∈ ℕ) → (𝐹𝑁) ∈ ℝ+)
36 peano2nn 7926 . . . 4 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
379, 10, 11resqrexlem1arp 9603 . . . 4 ((𝜑 ∧ (𝑁 + 1) ∈ ℕ) → ((ℕ × {(1 + 𝐴)})‘(𝑁 + 1)) ∈ ℝ+)
3836, 37sylan2 270 . . 3 ((𝜑𝑁 ∈ ℕ) → ((ℕ × {(1 + 𝐴)})‘(𝑁 + 1)) ∈ ℝ+)
3935rpred 8622 . . . . 5 ((𝜑𝑁 ∈ ℕ) → (𝐹𝑁) ∈ ℝ)
4010adantr 261 . . . . . 6 ((𝜑𝑁 ∈ ℕ) → 𝐴 ∈ ℝ)
4140, 35rerpdivcld 8654 . . . . 5 ((𝜑𝑁 ∈ ℕ) → (𝐴 / (𝐹𝑁)) ∈ ℝ)
4239, 41readdcld 7055 . . . 4 ((𝜑𝑁 ∈ ℕ) → ((𝐹𝑁) + (𝐴 / (𝐹𝑁))) ∈ ℝ)
4342rehalfcld 8171 . . 3 ((𝜑𝑁 ∈ ℕ) → (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2) ∈ ℝ)
4428, 33, 35, 38, 43ovmpt2d 5628 . 2 ((𝜑𝑁 ∈ ℕ) → ((𝐹𝑁)(𝑦 ∈ ℝ+, 𝑧 ∈ ℝ+ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2))((ℕ × {(1 + 𝐴)})‘(𝑁 + 1))) = (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2))
4521, 44eqtrd 2072 1 ((𝜑𝑁 ∈ ℕ) → (𝐹‘(𝑁 + 1)) = (((𝐹𝑁) + (𝐴 / (𝐹𝑁))) / 2))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 97   = wceq 1243   ∈ wcel 1393  Vcvv 2557  {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   ≤ cle 7061   / cdiv 7651  ℕcn 7914  2c2 7964  ℤ≥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:  resqrexlemover  9608  resqrexlemdec  9609  resqrexlemlo  9611  resqrexlemcalc1  9612
 Copyright terms: Public domain W3C validator