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

Theorem caucvgprlem2 7507
 Description: Lemma for caucvgpr 7509. Part of showing the putative limit to be a limit. (Contributed by Jim Kingdon, 3-Oct-2020.)
Hypotheses
Ref Expression
caucvgpr.f (𝜑𝐹:NQ)
caucvgpr.cau (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )))))
caucvgpr.bnd (𝜑 → ∀𝑗N 𝐴 <Q (𝐹𝑗))
caucvgpr.lim 𝐿 = ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩
caucvgprlemlim.q (𝜑𝑄Q)
caucvgprlemlim.jk (𝜑𝐽 <N 𝐾)
caucvgprlemlim.jkq (𝜑 → (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑄)
Assertion
Ref Expression
caucvgprlem2 (𝜑𝐿<P ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩)
Distinct variable groups:   𝐴,𝑗   𝑗,𝐹,𝑢,𝑙   𝑛,𝐹,𝑘   𝑗,𝐾,𝑢,𝑙   𝑗,𝐿,𝑘   𝑄,𝑙,𝑢   𝑗,𝑙   𝑗,𝑘   𝑘,𝑛
Allowed substitution hints:   𝜑(𝑢,𝑗,𝑘,𝑛,𝑙)   𝐴(𝑢,𝑘,𝑛,𝑙)   𝑄(𝑗,𝑘,𝑛)   𝐽(𝑢,𝑗,𝑘,𝑛,𝑙)   𝐾(𝑘,𝑛)   𝐿(𝑢,𝑛,𝑙)

Proof of Theorem caucvgprlem2
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 caucvgprlemlim.jk . . . . 5 (𝜑𝐽 <N 𝐾)
2 caucvgprlemlim.jkq . . . . 5 (𝜑 → (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑄)
31, 2caucvgprlemk 7492 . . . 4 (𝜑 → (*Q‘[⟨𝐾, 1o⟩] ~Q ) <Q 𝑄)
4 caucvgpr.f . . . . 5 (𝜑𝐹:NQ)
5 ltrelpi 7151 . . . . . . . 8 <N ⊆ (N × N)
65brel 4594 . . . . . . 7 (𝐽 <N 𝐾 → (𝐽N𝐾N))
71, 6syl 14 . . . . . 6 (𝜑 → (𝐽N𝐾N))
87simprd 113 . . . . 5 (𝜑𝐾N)
94, 8ffvelrnd 5559 . . . 4 (𝜑 → (𝐹𝐾) ∈ Q)
10 ltanqi 7229 . . . 4 (((*Q‘[⟨𝐾, 1o⟩] ~Q ) <Q 𝑄 ∧ (𝐹𝐾) ∈ Q) → ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q ((𝐹𝐾) +Q 𝑄))
113, 9, 10syl2anc 408 . . 3 (𝜑 → ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q ((𝐹𝐾) +Q 𝑄))
12 ltbtwnnqq 7242 . . 3 (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q ((𝐹𝐾) +Q 𝑄) ↔ ∃𝑥Q (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))
1311, 12sylib 121 . 2 (𝜑 → ∃𝑥Q (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))
14 simprl 520 . . . 4 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝑥Q)
158adantr 274 . . . . . 6 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝐾N)
16 simprrl 528 . . . . . 6 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥)
17 fveq2 5424 . . . . . . . . 9 (𝑗 = 𝐾 → (𝐹𝑗) = (𝐹𝐾))
18 opeq1 3708 . . . . . . . . . . 11 (𝑗 = 𝐾 → ⟨𝑗, 1o⟩ = ⟨𝐾, 1o⟩)
1918eceq1d 6468 . . . . . . . . . 10 (𝑗 = 𝐾 → [⟨𝑗, 1o⟩] ~Q = [⟨𝐾, 1o⟩] ~Q )
2019fveq2d 5428 . . . . . . . . 9 (𝑗 = 𝐾 → (*Q‘[⟨𝑗, 1o⟩] ~Q ) = (*Q‘[⟨𝐾, 1o⟩] ~Q ))
2117, 20oveq12d 5795 . . . . . . . 8 (𝑗 = 𝐾 → ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) = ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )))
2221breq1d 3942 . . . . . . 7 (𝑗 = 𝐾 → (((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥 ↔ ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥))
2322rspcev 2789 . . . . . 6 ((𝐾N ∧ ((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥) → ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥)
2415, 16, 23syl2anc 408 . . . . 5 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥)
25 breq2 3936 . . . . . . 7 (𝑢 = 𝑥 → (((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢 ↔ ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥))
2625rexbidv 2438 . . . . . 6 (𝑢 = 𝑥 → (∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢 ↔ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥))
27 caucvgpr.lim . . . . . . . 8 𝐿 = ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩
2827fveq2i 5427 . . . . . . 7 (2nd𝐿) = (2nd ‘⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩)
29 nqex 7190 . . . . . . . . 9 Q ∈ V
3029rabex 4075 . . . . . . . 8 {𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ∈ V
3129rabex 4075 . . . . . . . 8 {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ∈ V
3230, 31op2nd 6048 . . . . . . 7 (2nd ‘⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩) = {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}
3328, 32eqtri 2160 . . . . . 6 (2nd𝐿) = {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}
3426, 33elrab2 2843 . . . . 5 (𝑥 ∈ (2nd𝐿) ↔ (𝑥Q ∧ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑥))
3514, 24, 34sylanbrc 413 . . . 4 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝑥 ∈ (2nd𝐿))
36 simprrr 529 . . . . . 6 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝑥 <Q ((𝐹𝐾) +Q 𝑄))
37 vex 2689 . . . . . . 7 𝑥 ∈ V
38 breq1 3935 . . . . . . 7 (𝑙 = 𝑥 → (𝑙 <Q ((𝐹𝐾) +Q 𝑄) ↔ 𝑥 <Q ((𝐹𝐾) +Q 𝑄)))
3937, 38elab 2828 . . . . . 6 (𝑥 ∈ {𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)} ↔ 𝑥 <Q ((𝐹𝐾) +Q 𝑄))
4036, 39sylibr 133 . . . . 5 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝑥 ∈ {𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)})
41 ltnqex 7376 . . . . . 6 {𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)} ∈ V
42 gtnqex 7377 . . . . . 6 {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢} ∈ V
4341, 42op1st 6047 . . . . 5 (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩) = {𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}
4440, 43eleqtrrdi 2233 . . . 4 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩))
45 rspe 2481 . . . 4 ((𝑥Q ∧ (𝑥 ∈ (2nd𝐿) ∧ 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩))) → ∃𝑥Q (𝑥 ∈ (2nd𝐿) ∧ 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩)))
4614, 35, 44, 45syl12anc 1214 . . 3 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → ∃𝑥Q (𝑥 ∈ (2nd𝐿) ∧ 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩)))
47 caucvgpr.cau . . . . . 6 (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )))))
48 caucvgpr.bnd . . . . . 6 (𝜑 → ∀𝑗N 𝐴 <Q (𝐹𝑗))
494, 47, 48, 27caucvgprlemcl 7503 . . . . 5 (𝜑𝐿P)
5049adantr 274 . . . 4 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝐿P)
51 caucvgprlemlim.q . . . . . . 7 (𝜑𝑄Q)
52 addclnq 7202 . . . . . . 7 (((𝐹𝐾) ∈ Q𝑄Q) → ((𝐹𝐾) +Q 𝑄) ∈ Q)
539, 51, 52syl2anc 408 . . . . . 6 (𝜑 → ((𝐹𝐾) +Q 𝑄) ∈ Q)
54 nqprlu 7374 . . . . . 6 (((𝐹𝐾) +Q 𝑄) ∈ Q → ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ∈ P)
5553, 54syl 14 . . . . 5 (𝜑 → ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ∈ P)
5655adantr 274 . . . 4 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ∈ P)
57 ltdfpr 7333 . . . 4 ((𝐿P ∧ ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ∈ P) → (𝐿<P ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ↔ ∃𝑥Q (𝑥 ∈ (2nd𝐿) ∧ 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩))))
5850, 56, 57syl2anc 408 . . 3 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → (𝐿<P ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩ ↔ ∃𝑥Q (𝑥 ∈ (2nd𝐿) ∧ 𝑥 ∈ (1st ‘⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩))))
5946, 58mpbird 166 . 2 ((𝜑 ∧ (𝑥Q ∧ (((𝐹𝐾) +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑥𝑥 <Q ((𝐹𝐾) +Q 𝑄)))) → 𝐿<P ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩)
6013, 59rexlimddv 2554 1 (𝜑𝐿<P ⟨{𝑙𝑙 <Q ((𝐹𝐾) +Q 𝑄)}, {𝑢 ∣ ((𝐹𝐾) +Q 𝑄) <Q 𝑢}⟩)
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1331   ∈ wcel 1480  {cab 2125  ∀wral 2416  ∃wrex 2417  {crab 2420  ⟨cop 3530   class class class wbr 3932  ⟶wf 5122  ‘cfv 5126  (class class class)co 5777  1st c1st 6039  2nd c2nd 6040  1oc1o 6309  [cec 6430  Ncnpi 7099
 Copyright terms: Public domain W3C validator