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

Theorem caucvgprlemcl 7491
 Description: Lemma for caucvgpr 7497. The putative limit is a positive real. (Contributed by Jim Kingdon, 26-Sep-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 𝑢}⟩
Assertion
Ref Expression
caucvgprlemcl (𝜑𝐿P)
Distinct variable groups:   𝐴,𝑗   𝑗,𝐹,𝑙   𝑢,𝐹,𝑗   𝑛,𝐹,𝑘   𝑗,𝑘,𝐿   𝑘,𝑛
Allowed substitution hints:   𝜑(𝑢,𝑗,𝑘,𝑛,𝑙)   𝐴(𝑢,𝑘,𝑛,𝑙)   𝐿(𝑢,𝑛,𝑙)

Proof of Theorem caucvgprlemcl
Dummy variables 𝑠 𝑎 𝑐 𝑑 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 caucvgpr.f . . . 4 (𝜑𝐹:NQ)
2 caucvgpr.cau . . . 4 (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )))))
3 caucvgpr.bnd . . . . 5 (𝜑 → ∀𝑗N 𝐴 <Q (𝐹𝑗))
4 fveq2 5421 . . . . . . 7 (𝑗 = 𝑎 → (𝐹𝑗) = (𝐹𝑎))
54breq2d 3941 . . . . . 6 (𝑗 = 𝑎 → (𝐴 <Q (𝐹𝑗) ↔ 𝐴 <Q (𝐹𝑎)))
65cbvralv 2654 . . . . 5 (∀𝑗N 𝐴 <Q (𝐹𝑗) ↔ ∀𝑎N 𝐴 <Q (𝐹𝑎))
73, 6sylib 121 . . . 4 (𝜑 → ∀𝑎N 𝐴 <Q (𝐹𝑎))
8 caucvgpr.lim . . . . 5 𝐿 = ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩
9 opeq1 3705 . . . . . . . . . . . . 13 (𝑗 = 𝑎 → ⟨𝑗, 1o⟩ = ⟨𝑎, 1o⟩)
109eceq1d 6465 . . . . . . . . . . . 12 (𝑗 = 𝑎 → [⟨𝑗, 1o⟩] ~Q = [⟨𝑎, 1o⟩] ~Q )
1110fveq2d 5425 . . . . . . . . . . 11 (𝑗 = 𝑎 → (*Q‘[⟨𝑗, 1o⟩] ~Q ) = (*Q‘[⟨𝑎, 1o⟩] ~Q ))
1211oveq2d 5790 . . . . . . . . . 10 (𝑗 = 𝑎 → (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) = (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )))
1312, 4breq12d 3942 . . . . . . . . 9 (𝑗 = 𝑎 → ((𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗) ↔ (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎)))
1413cbvrexv 2655 . . . . . . . 8 (∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗) ↔ ∃𝑎N (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎))
1514a1i 9 . . . . . . 7 (𝑙Q → (∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗) ↔ ∃𝑎N (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎)))
1615rabbiia 2671 . . . . . 6 {𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} = {𝑙Q ∣ ∃𝑎N (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎)}
174, 11oveq12d 5792 . . . . . . . . . 10 (𝑗 = 𝑎 → ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) = ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )))
1817breq1d 3939 . . . . . . . . 9 (𝑗 = 𝑎 → (((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢 ↔ ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢))
1918cbvrexv 2655 . . . . . . . 8 (∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢 ↔ ∃𝑎N ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢)
2019a1i 9 . . . . . . 7 (𝑢Q → (∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢 ↔ ∃𝑎N ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢))
2120rabbiia 2671 . . . . . 6 {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} = {𝑢Q ∣ ∃𝑎N ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢}
2216, 21opeq12i 3710 . . . . 5 ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩ = ⟨{𝑙Q ∣ ∃𝑎N (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎)}, {𝑢Q ∣ ∃𝑎N ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢}⟩
238, 22eqtri 2160 . . . 4 𝐿 = ⟨{𝑙Q ∣ ∃𝑎N (𝑙 +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q (𝐹𝑎)}, {𝑢Q ∣ ∃𝑎N ((𝐹𝑎) +Q (*Q‘[⟨𝑎, 1o⟩] ~Q )) <Q 𝑢}⟩
241, 2, 7, 23caucvgprlemm 7483 . . 3 (𝜑 → (∃𝑠Q 𝑠 ∈ (1st𝐿) ∧ ∃𝑟Q 𝑟 ∈ (2nd𝐿)))
25 ssrab2 3182 . . . . . 6 {𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ⊆ Q
26 nqex 7178 . . . . . . 7 Q ∈ V
2726elpw2 4082 . . . . . 6 ({𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ∈ 𝒫 Q ↔ {𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ⊆ Q)
2825, 27mpbir 145 . . . . 5 {𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ∈ 𝒫 Q
29 ssrab2 3182 . . . . . 6 {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ⊆ Q
3026elpw2 4082 . . . . . 6 ({𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ∈ 𝒫 Q ↔ {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ⊆ Q)
3129, 30mpbir 145 . . . . 5 {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ∈ 𝒫 Q
32 opelxpi 4571 . . . . 5 (({𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)} ∈ 𝒫 Q ∧ {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢} ∈ 𝒫 Q) → ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩ ∈ (𝒫 Q × 𝒫 Q))
3328, 31, 32mp2an 422 . . . 4 ⟨{𝑙Q ∣ ∃𝑗N (𝑙 +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q (𝐹𝑗)}, {𝑢Q ∣ ∃𝑗N ((𝐹𝑗) +Q (*Q‘[⟨𝑗, 1o⟩] ~Q )) <Q 𝑢}⟩ ∈ (𝒫 Q × 𝒫 Q)
348, 33eqeltri 2212 . . 3 𝐿 ∈ (𝒫 Q × 𝒫 Q)
3524, 34jctil 310 . 2 (𝜑 → (𝐿 ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑠Q 𝑠 ∈ (1st𝐿) ∧ ∃𝑟Q 𝑟 ∈ (2nd𝐿))))
361, 2, 7, 23caucvgprlemrnd 7488 . . 3 (𝜑 → (∀𝑠Q (𝑠 ∈ (1st𝐿) ↔ ∃𝑟Q (𝑠 <Q 𝑟𝑟 ∈ (1st𝐿))) ∧ ∀𝑟Q (𝑟 ∈ (2nd𝐿) ↔ ∃𝑠Q (𝑠 <Q 𝑟𝑠 ∈ (2nd𝐿)))))
37 breq1 3932 . . . . . . 7 (𝑛 = 𝑐 → (𝑛 <N 𝑘𝑐 <N 𝑘))
38 fveq2 5421 . . . . . . . . 9 (𝑛 = 𝑐 → (𝐹𝑛) = (𝐹𝑐))
39 opeq1 3705 . . . . . . . . . . . 12 (𝑛 = 𝑐 → ⟨𝑛, 1o⟩ = ⟨𝑐, 1o⟩)
4039eceq1d 6465 . . . . . . . . . . 11 (𝑛 = 𝑐 → [⟨𝑛, 1o⟩] ~Q = [⟨𝑐, 1o⟩] ~Q )
4140fveq2d 5425 . . . . . . . . . 10 (𝑛 = 𝑐 → (*Q‘[⟨𝑛, 1o⟩] ~Q ) = (*Q‘[⟨𝑐, 1o⟩] ~Q ))
4241oveq2d 5790 . . . . . . . . 9 (𝑛 = 𝑐 → ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) = ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))
4338, 42breq12d 3942 . . . . . . . 8 (𝑛 = 𝑐 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ↔ (𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))
4438, 41oveq12d 5792 . . . . . . . . 9 (𝑛 = 𝑐 → ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) = ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))
4544breq2d 3941 . . . . . . . 8 (𝑛 = 𝑐 → ((𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ↔ (𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))
4643, 45anbi12d 464 . . . . . . 7 (𝑛 = 𝑐 → (((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q ))) ↔ ((𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))))
4737, 46imbi12d 233 . . . . . 6 (𝑛 = 𝑐 → ((𝑛 <N 𝑘 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )))) ↔ (𝑐 <N 𝑘 → ((𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))))
48 breq2 3933 . . . . . . 7 (𝑘 = 𝑑 → (𝑐 <N 𝑘𝑐 <N 𝑑))
49 fveq2 5421 . . . . . . . . . 10 (𝑘 = 𝑑 → (𝐹𝑘) = (𝐹𝑑))
5049oveq1d 5789 . . . . . . . . 9 (𝑘 = 𝑑 → ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) = ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))
5150breq2d 3941 . . . . . . . 8 (𝑘 = 𝑑 → ((𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ↔ (𝐹𝑐) <Q ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))
5249breq1d 3939 . . . . . . . 8 (𝑘 = 𝑑 → ((𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ↔ (𝐹𝑑) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))
5351, 52anbi12d 464 . . . . . . 7 (𝑘 = 𝑑 → (((𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))) ↔ ((𝐹𝑐) <Q ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑑) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))))
5448, 53imbi12d 233 . . . . . 6 (𝑘 = 𝑑 → ((𝑐 <N 𝑘 → ((𝐹𝑐) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))) ↔ (𝑐 <N 𝑑 → ((𝐹𝑐) <Q ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑑) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q ))))))
5547, 54cbvral2v 2665 . . . . 5 (∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛) <Q ((𝐹𝑘) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )) ∧ (𝐹𝑘) <Q ((𝐹𝑛) +Q (*Q‘[⟨𝑛, 1o⟩] ~Q )))) ↔ ∀𝑐N𝑑N (𝑐 <N 𝑑 → ((𝐹𝑐) <Q ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑑) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))))
562, 55sylib 121 . . . 4 (𝜑 → ∀𝑐N𝑑N (𝑐 <N 𝑑 → ((𝐹𝑐) <Q ((𝐹𝑑) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )) ∧ (𝐹𝑑) <Q ((𝐹𝑐) +Q (*Q‘[⟨𝑐, 1o⟩] ~Q )))))
571, 56, 7, 23caucvgprlemdisj 7489 . . 3 (𝜑 → ∀𝑠Q ¬ (𝑠 ∈ (1st𝐿) ∧ 𝑠 ∈ (2nd𝐿)))
581, 2, 7, 23caucvgprlemloc 7490 . . 3 (𝜑 → ∀𝑠Q𝑟Q (𝑠 <Q 𝑟 → (𝑠 ∈ (1st𝐿) ∨ 𝑟 ∈ (2nd𝐿))))
5936, 57, 583jca 1161 . 2 (𝜑 → ((∀𝑠Q (𝑠 ∈ (1st𝐿) ↔ ∃𝑟Q (𝑠 <Q 𝑟𝑟 ∈ (1st𝐿))) ∧ ∀𝑟Q (𝑟 ∈ (2nd𝐿) ↔ ∃𝑠Q (𝑠 <Q 𝑟𝑠 ∈ (2nd𝐿)))) ∧ ∀𝑠Q ¬ (𝑠 ∈ (1st𝐿) ∧ 𝑠 ∈ (2nd𝐿)) ∧ ∀𝑠Q𝑟Q (𝑠 <Q 𝑟 → (𝑠 ∈ (1st𝐿) ∨ 𝑟 ∈ (2nd𝐿)))))
60 elnp1st2nd 7291 . 2 (𝐿P ↔ ((𝐿 ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑠Q 𝑠 ∈ (1st𝐿) ∧ ∃𝑟Q 𝑟 ∈ (2nd𝐿))) ∧ ((∀𝑠Q (𝑠 ∈ (1st𝐿) ↔ ∃𝑟Q (𝑠 <Q 𝑟𝑟 ∈ (1st𝐿))) ∧ ∀𝑟Q (𝑟 ∈ (2nd𝐿) ↔ ∃𝑠Q (𝑠 <Q 𝑟𝑠 ∈ (2nd𝐿)))) ∧ ∀𝑠Q ¬ (𝑠 ∈ (1st𝐿) ∧ 𝑠 ∈ (2nd𝐿)) ∧ ∀𝑠Q𝑟Q (𝑠 <Q 𝑟 → (𝑠 ∈ (1st𝐿) ∨ 𝑟 ∈ (2nd𝐿))))))
6135, 59, 60sylanbrc 413 1 (𝜑𝐿P)
 Colors of variables: wff set class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 103   ↔ wb 104   ∨ wo 697   ∧ w3a 962   = wceq 1331   ∈ wcel 1480  ∀wral 2416  ∃wrex 2417  {crab 2420   ⊆ wss 3071  𝒫 cpw 3510  ⟨cop 3530   class class class wbr 3929   × cxp 4537  ⟶wf 5119  ‘cfv 5123  (class class class)co 5774  1st c1st 6036  2nd c2nd 6037  1oc1o 6306  [cec 6427  Ncnpi 7087
 Copyright terms: Public domain W3C validator