This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem atbtwnexOLDN

Description: There exists a 3rd atom r on a line P .\/ Q intersecting element X at P , such that r is different from Q and not in X . (Contributed by NM, 30-Jul-2012) (New usage is discouraged.)

Ref Expression
Hypotheses atbtwn.b 
|- B = ( Base ` K )
atbtwn.l 
|- .<_ = ( le ` K )
atbtwn.j 
|- .\/ = ( join ` K )
atbtwn.a 
|- A = ( Atoms ` K )
Assertion atbtwnexOLDN 
|- ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> E. r e. A ( r =/= Q /\ -. r .<_ X /\ r .<_ ( P .\/ Q ) ) )

Proof

Step Hyp Ref Expression
1 atbtwn.b 
 |-  B = ( Base ` K )
2 atbtwn.l 
 |-  .<_ = ( le ` K )
3 atbtwn.j 
 |-  .\/ = ( join ` K )
4 atbtwn.a 
 |-  A = ( Atoms ` K )
5 simpr2 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> P .<_ X )
6 simpr3 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> -. Q .<_ X )
7 nbrne2 
 |-  ( ( P .<_ X /\ -. Q .<_ X ) -> P =/= Q )
8 5 6 7 syl2anc 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> P =/= Q )
9 2 3 4 hlsupr 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ P =/= Q ) -> E. r e. A ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) )
10 8 9 syldan 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> E. r e. A ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) )
11 simp32 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> r =/= Q )
12 simp31 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> r =/= P )
13 simp1l 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> ( K e. HL /\ P e. A /\ Q e. A ) )
14 simp2 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> r e. A )
15 simp1r1 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> X e. B )
16 simp1r2 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> P .<_ X )
17 simp1r3 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> -. Q .<_ X )
18 simp33 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> r .<_ ( P .\/ Q ) )
19 1 2 3 4 atbtwn 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( r e. A /\ X e. B ) /\ ( P .<_ X /\ -. Q .<_ X /\ r .<_ ( P .\/ Q ) ) ) -> ( r =/= P <-> -. r .<_ X ) )
20 13 14 15 16 17 18 19 syl123anc 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> ( r =/= P <-> -. r .<_ X ) )
21 12 20 mpbid 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> -. r .<_ X )
22 11 21 18 3jca 
 |-  ( ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) /\ r e. A /\ ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) ) -> ( r =/= Q /\ -. r .<_ X /\ r .<_ ( P .\/ Q ) ) )
23 22 3exp 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> ( r e. A -> ( ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) -> ( r =/= Q /\ -. r .<_ X /\ r .<_ ( P .\/ Q ) ) ) ) )
24 23 reximdvai 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> ( E. r e. A ( r =/= P /\ r =/= Q /\ r .<_ ( P .\/ Q ) ) -> E. r e. A ( r =/= Q /\ -. r .<_ X /\ r .<_ ( P .\/ Q ) ) ) )
25 10 24 mpd 
 |-  ( ( ( K e. HL /\ P e. A /\ Q e. A ) /\ ( X e. B /\ P .<_ X /\ -. Q .<_ X ) ) -> E. r e. A ( r =/= Q /\ -. r .<_ X /\ r .<_ ( P .\/ Q ) ) )