ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  prarloclemup Unicode version
Theorem prarloclemup 7862
Description: Contracting the upper side of an interval which straddles a Dedekind cut. Lemma for prarloc 7870. (Contributed by Jim Kingdon, 10-Nov-2019.)
Assertion
Ref Expression
prarloclemup |- ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) -> ( ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U -> ( ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) -> E. y e. om ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) ) )
Proof of Theorem prarloclemup
StepHypRef Expression
1 simpllr 540 . . 3 |- ( ( ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) /\ ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) -> y e. om )
2 simprl 535 . . 3 |- ( ( ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) /\ ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) -> ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L )
3 simplr 533 . . 3 |- ( ( ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) /\ ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) -> ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U )
4 rspe 2599 . . 3 |- ( ( y e. om /\ ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) -> E. y e. om ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) )
51, 2, 3, 4syl12anc 1276 . 2 |- ( ( ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) /\ ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) -> E. y e. om ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) )
65exp31 364 1 |- ( ( ( X e. om /\ ( <. L , U >. e. P. /\ A e. L /\ P e. Q. ) ) /\ y e. om ) -> ( ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U -> ( ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o suc X ) , 1o >. ] ~Q .Q P ) ) e. U ) -> E. y e. om ( ( A +Q0 ( [ <. y , 1o >. ] ~Q0 ·Q0 P ) ) e. L /\ ( A +Q ( [ <. ( ( y +o 2o ) +o X ) , 1o >. ] ~Q .Q P ) ) e. U ) ) ) )
Colors of variables:    wff set class
This proof depends on syntax axioms:   -> wi 4   /\ wa 104   /\ w3a 1009   e. wcel 2209   E.wrex 2529   <.cop 3712   suc csuc 4510   omcom 4737  (class class class)co 6085   1oc1o 6680   2oc2o 6681   +o coa 6684   [cec 6805   ~Q ceq 7646   Q.cnq 7647   +Q cplq 7649   .Q cmq 7650   ~Q0 ceq0 7653   +Q0 cplq0 7656   ·Q0 cmq0 7657   P.cnp 7658
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-4 1563
This proof depends on definitions:  df-bi 117  df-rex 2534
This theorem is used by:  prarloclem3step  7863
  Copyright terms: Public domain W3C validator