Metamath Proof Explorer


Theorem lhpexle3lem

Description: There exists atom under a co-atom different from any three other atoms. TODO: study if adant*, simp* usage can be improved. (Contributed by NM, 9-Jul-2013)

Ref Expression
Hypotheses lhpex1.l ˙=K
lhpex1.a A=AtomsK
lhpex1.h H=LHypK
Assertion lhpexle3lem KHLWHXAYAZAX˙WY˙WZ˙WpAp˙WpXpYpZ

Proof

Step Hyp Ref Expression
1 lhpex1.l ˙=K
2 lhpex1.a A=AtomsK
3 lhpex1.h H=LHypK
4 simpl1 KHLWHXAYAZAX˙WY˙WZ˙WX=YKHLWH
5 1 2 3 lhpexle2 KHLWHpAp˙WpXpZ
6 4 5 syl KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZ
7 simp31 KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZp˙W
8 simp32 KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZpX
9 simp1r KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZX=Y
10 8 9 neeqtrd KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZpY
11 simp33 KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZpZ
12 8 10 11 3jca KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZpXpYpZ
13 7 12 jca KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZp˙WpXpYpZ
14 13 3exp KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZp˙WpXpYpZ
15 14 reximdvai KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpZpAp˙WpXpYpZ
16 6 15 mpd KHLWHXAYAZAX˙WY˙WZ˙WX=YpAp˙WpXpYpZ
17 simprrr KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙Wp˙W
18 simp11l KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYKHL
19 18 adantr KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WKHL
20 19 hllatd KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WKLat
21 eqid BaseK=BaseK
22 21 2 atbase pApBaseK
23 22 ad2antrl KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WpBaseK
24 simp121 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYXA
25 24 adantr KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WXA
26 21 2 atbase XAXBaseK
27 25 26 syl KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WXBaseK
28 simp122 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYYA
29 28 adantr KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WYA
30 21 2 atbase YAYBaseK
31 29 30 syl KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WYBaseK
32 simprrl KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙W¬p˙XjoinKY
33 eqid joinK=joinK
34 21 1 33 latnlej1l KLatpBaseKXBaseKYBaseK¬p˙XjoinKYpX
35 20 23 27 31 32 34 syl131anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WpX
36 21 1 33 latnlej1r KLatpBaseKXBaseKYBaseK¬p˙XjoinKYpY
37 20 23 27 31 32 36 syl131anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WpY
38 simpl3 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WZ˙XjoinKY
39 nbrne2 Z˙XjoinKY¬p˙XjoinKYZp
40 39 necomd Z˙XjoinKY¬p˙XjoinKYpZ
41 38 32 40 syl2anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WpZ
42 35 37 41 3jca KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙WpXpYpZ
43 17 42 jca KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙Wp˙WpXpYpZ
44 simp11 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYKHLWH
45 simp131 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYX˙W
46 simp132 KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYY˙W
47 eqid <K=<K
48 1 47 33 2 3 lhp2lt KHLWHXAX˙WYAY˙WXjoinKY<KW
49 44 24 45 28 46 48 syl122anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYXjoinKY<KW
50 21 33 2 hlatjcl KHLXAYAXjoinKYBaseK
51 18 24 28 50 syl3anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYXjoinKYBaseK
52 simp11r KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYWH
53 21 3 lhpbase WHWBaseK
54 52 53 syl KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYWBaseK
55 21 1 47 2 hlrelat1 KHLXjoinKYBaseKWBaseKXjoinKY<KWpA¬p˙XjoinKYp˙W
56 18 51 54 55 syl3anc KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYXjoinKY<KWpA¬p˙XjoinKYp˙W
57 49 56 mpd KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpA¬p˙XjoinKYp˙W
58 43 57 reximddv KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpAp˙WpXpYpZ
59 58 3expa KHLWHXAYAZAX˙WY˙WZ˙WXYZ˙XjoinKYpAp˙WpXpYpZ
60 simp11l KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYKHL
61 60 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYKHL
62 61 hllatd KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYKLat
63 22 ad2antrl KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYpBaseK
64 simp121 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYXA
65 64 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYXA
66 simp122 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYYA
67 66 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYYA
68 61 65 67 50 syl3anc KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYXjoinKYBaseK
69 simp11r KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYWH
70 69 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYWH
71 70 53 syl KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYWBaseK
72 simprr3 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYp˙XjoinKY
73 simp131 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYX˙W
74 73 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYX˙W
75 simp132 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYY˙W
76 75 adantr KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYY˙W
77 65 26 syl KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYXBaseK
78 67 30 syl KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYYBaseK
79 21 1 33 latjle12 KLatXBaseKYBaseKWBaseKX˙WY˙WXjoinKY˙W
80 62 77 78 71 79 syl13anc KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYX˙WY˙WXjoinKY˙W
81 74 76 80 mpbi2and KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYXjoinKY˙W
82 21 1 62 63 68 71 72 81 lattrd KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYp˙W
83 simprr1 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYpX
84 simprr2 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYpY
85 simpl3 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKY¬Z˙XjoinKY
86 nbrne2 p˙XjoinKY¬Z˙XjoinKYpZ
87 72 85 86 syl2anc KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYpZ
88 83 84 87 3jca KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYpXpYpZ
89 82 88 jca KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKYp˙WpXpYpZ
90 simp2 KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYXY
91 1 33 2 hlsupr KHLXAYAXYpApXpYp˙XjoinKY
92 60 64 66 90 91 syl31anc KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpApXpYp˙XjoinKY
93 89 92 reximddv KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpAp˙WpXpYpZ
94 93 3expa KHLWHXAYAZAX˙WY˙WZ˙WXY¬Z˙XjoinKYpAp˙WpXpYpZ
95 59 94 pm2.61dan KHLWHXAYAZAX˙WY˙WZ˙WXYpAp˙WpXpYpZ
96 16 95 pm2.61dane KHLWHXAYAZAX˙WY˙WZ˙WpAp˙WpXpYpZ