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

Theorem caucvgprprlemlim 7542
 Description: Lemma for caucvgprpr 7543. The putative limit is a limit. (Contributed by Jim Kingdon, 21-Nov-2020.)
Hypotheses
Ref Expression
caucvgprpr.f (𝜑𝐹:NP)
caucvgprpr.cau (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛)<P ((𝐹𝑘) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩) ∧ (𝐹𝑘)<P ((𝐹𝑛) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩))))
caucvgprpr.bnd (𝜑 → ∀𝑚N 𝐴<P (𝐹𝑚))
caucvgprpr.lim 𝐿 = ⟨{𝑙Q ∣ ∃𝑟N ⟨{𝑝𝑝 <Q (𝑙 +Q (*Q‘[⟨𝑟, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑙 +Q (*Q‘[⟨𝑟, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝑟)}, {𝑢Q ∣ ∃𝑟N ((𝐹𝑟) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝑟, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝑟, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑢}, {𝑞𝑢 <Q 𝑞}⟩}⟩
Assertion
Ref Expression
caucvgprprlemlim (𝜑 → ∀𝑥P𝑗N𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥))))
Distinct variable groups:   𝐴,𝑚   𝑚,𝐹   𝐴,𝑟,𝑗   𝑢,𝐹,𝑟,𝑙,𝑘,𝑛   𝜑,𝑘,𝑟   𝑘,𝐿   𝑗,𝑘,𝜑,𝑥   𝑘,𝑙,𝑢,𝑝,𝑞,𝑟   𝑗,𝑟,𝑥   𝑞,𝑙,𝑟   𝑢,𝑝,𝑞,𝑟   𝑚,𝑟   𝑘,𝑛,𝑢,𝑙   𝑗,𝑙,𝑢   𝑛,𝑟
Allowed substitution hints:   𝜑(𝑢,𝑚,𝑛,𝑞,𝑝,𝑙)   𝐴(𝑥,𝑢,𝑘,𝑛,𝑞,𝑝,𝑙)   𝐹(𝑥,𝑗,𝑞,𝑝)   𝐿(𝑥,𝑢,𝑗,𝑚,𝑛,𝑟,𝑞,𝑝,𝑙)

Proof of Theorem caucvgprprlemlim
StepHypRef Expression
1 archrecpr 7495 . . . 4 (𝑥P → ∃𝑗N ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥)
21adantl 275 . . 3 ((𝜑𝑥P) → ∃𝑗N ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥)
3 caucvgprpr.f . . . . . . . . . 10 (𝜑𝐹:NP)
43ad5antr 488 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → 𝐹:NP)
5 caucvgprpr.cau . . . . . . . . . 10 (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛)<P ((𝐹𝑘) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩) ∧ (𝐹𝑘)<P ((𝐹𝑛) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩))))
65ad5antr 488 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛)<P ((𝐹𝑘) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩) ∧ (𝐹𝑘)<P ((𝐹𝑛) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩))))
7 caucvgprpr.bnd . . . . . . . . . 10 (𝜑 → ∀𝑚N 𝐴<P (𝐹𝑚))
87ad5antr 488 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → ∀𝑚N 𝐴<P (𝐹𝑚))
9 caucvgprpr.lim . . . . . . . . 9 𝐿 = ⟨{𝑙Q ∣ ∃𝑟N ⟨{𝑝𝑝 <Q (𝑙 +Q (*Q‘[⟨𝑟, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑙 +Q (*Q‘[⟨𝑟, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝑟)}, {𝑢Q ∣ ∃𝑟N ((𝐹𝑟) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝑟, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝑟, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑢}, {𝑞𝑢 <Q 𝑞}⟩}⟩
10 simpr 109 . . . . . . . . . 10 ((𝜑𝑥P) → 𝑥P)
1110ad4antr 486 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → 𝑥P)
12 simpr 109 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → 𝑗 <N 𝑘)
13 simpllr 524 . . . . . . . . 9 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥)
144, 6, 8, 9, 11, 12, 13caucvgprprlem1 7540 . . . . . . . 8 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → (𝐹𝑘)<P (𝐿 +P 𝑥))
154, 6, 8, 9, 11, 12, 13caucvgprprlem2 7541 . . . . . . . 8 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → 𝐿<P ((𝐹𝑘) +P 𝑥))
1614, 15jca 304 . . . . . . 7 ((((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) ∧ 𝑗 <N 𝑘) → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥)))
1716ex 114 . . . . . 6 (((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) ∧ 𝑘N) → (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥))))
1817ralrimiva 2508 . . . . 5 ((((𝜑𝑥P) ∧ 𝑗N) ∧ ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥) → ∀𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥))))
1918ex 114 . . . 4 (((𝜑𝑥P) ∧ 𝑗N) → (⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥 → ∀𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥)))))
2019reximdva 2537 . . 3 ((𝜑𝑥P) → (∃𝑗N ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑗, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑗, 1o⟩] ~Q ) <Q 𝑢}⟩<P 𝑥 → ∃𝑗N𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥)))))
212, 20mpd 13 . 2 ((𝜑𝑥P) → ∃𝑗N𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥))))
2221ralrimiva 2508 1 (𝜑 → ∀𝑥P𝑗N𝑘N (𝑗 <N 𝑘 → ((𝐹𝑘)<P (𝐿 +P 𝑥) ∧ 𝐿<P ((𝐹𝑘) +P 𝑥))))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   = wceq 1332   ∈ wcel 1481  {cab 2126  ∀wral 2417  ∃wrex 2418  {crab 2421  ⟨cop 3534   class class class wbr 3936  ⟶wf 5126  ‘cfv 5130  (class class class)co 5781  1oc1o 6313  [cec 6434  Ncnpi 7103
 Copyright terms: Public domain W3C validator