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

Theorem prarloclemup 7303
Description: Contracting the upper side of an interval which straddles a Dedekind cut. Lemma for prarloc 7311. (Contributed by Jim Kingdon, 10-Nov-2019.)
Assertion
Ref Expression
prarloclemup (((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈 → (((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈))))

Proof of Theorem prarloclemup
StepHypRef Expression
1 simpllr 523 . . 3 (((((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) ∧ ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)) → 𝑦 ∈ ω)
2 simprl 520 . . 3 (((((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) ∧ ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)) → (𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿)
3 simplr 519 . . 3 (((((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) ∧ ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)) → (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)
4 rspe 2481 . . 3 ((𝑦 ∈ ω ∧ ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈))
51, 2, 3, 4syl12anc 1214 . 2 (((((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) ∧ ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈)) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈))
65exp31 361 1 (((𝑋 ∈ ω ∧ (⟨𝐿, 𝑈⟩ ∈ P𝐴𝐿𝑃Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈 → (((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o suc 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([⟨𝑦, 1o⟩] ~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([⟨((𝑦 +o 2o) +o 𝑋), 1o⟩] ~Q ·Q 𝑃)) ∈ 𝑈))))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  w3a 962  wcel 1480  wrex 2417  cop 3530  suc csuc 4287  ωcom 4504  (class class class)co 5774  1oc1o 6306  2oc2o 6307   +o coa 6310  [cec 6427   ~Q ceq 7087  Qcnq 7088   +Q cplq 7090   ·Q cmq 7091   ~Q0 ceq0 7094   +Q0 cplq0 7097   ·Q0 cmq0 7098  Pcnp 7099
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-4 1487
This theorem depends on definitions:  df-bi 116  df-rex 2422
This theorem is referenced by:  prarloclem3step  7304
  Copyright terms: Public domain W3C validator