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 = Atoms K
lhpex1.h H = LHyp K
Assertion lhpexle3lem K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W p A p ˙ W p X p Y p Z

Proof

Step Hyp Ref Expression
1 lhpex1.l ˙ = K
2 lhpex1.a A = Atoms K
3 lhpex1.h H = LHyp K
4 simpl1 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y K HL W H
5 1 2 3 lhpexle2 K HL W H p A p ˙ W p X p Z
6 4 5 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z
7 simp31 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p ˙ W
8 simp32 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p X
9 simp1r K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z X = Y
10 8 9 neeqtrd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p Y
11 simp33 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p Z
12 8 10 11 3jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p X p Y p Z
13 7 12 jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p ˙ W p X p Y p Z
14 13 3exp K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p ˙ W p X p Y p Z
15 14 reximdvai K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Z p A p ˙ W p X p Y p Z
16 6 15 mpd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X = Y p A p ˙ W p X p Y p Z
17 simprrr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p ˙ W
18 simp11l K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y K HL
19 18 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W K HL
20 19 hllatd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W K Lat
21 eqid Base K = Base K
22 21 2 atbase p A p Base K
23 22 ad2antrl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p Base K
24 simp121 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y X A
25 24 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W X A
26 21 2 atbase X A X Base K
27 25 26 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W X Base K
28 simp122 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y Y A
29 28 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W Y A
30 21 2 atbase Y A Y Base K
31 29 30 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W Y Base K
32 simprrl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W ¬ p ˙ X join K Y
33 eqid join K = join K
34 21 1 33 latnlej1l K Lat p Base K X Base K Y Base K ¬ p ˙ X join K Y p X
35 20 23 27 31 32 34 syl131anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p X
36 21 1 33 latnlej1r K Lat p Base K X Base K Y Base K ¬ p ˙ X join K Y p Y
37 20 23 27 31 32 36 syl131anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p Y
38 simpl3 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W Z ˙ X join K Y
39 nbrne2 Z ˙ X join K Y ¬ p ˙ X join K Y Z p
40 39 necomd Z ˙ X join K Y ¬ p ˙ X join K Y p Z
41 38 32 40 syl2anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p Z
42 35 37 41 3jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p X p Y p Z
43 17 42 jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W p ˙ W p X p Y p Z
44 simp11 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y K HL W H
45 simp131 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y X ˙ W
46 simp132 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y Y ˙ W
47 eqid < K = < K
48 1 47 33 2 3 lhp2lt K HL W H X A X ˙ W Y A Y ˙ W X join K Y < K W
49 44 24 45 28 46 48 syl122anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y X join K Y < K W
50 21 33 2 hlatjcl K HL X A Y A X join K Y Base K
51 18 24 28 50 syl3anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y X join K Y Base K
52 simp11r K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y W H
53 21 3 lhpbase W H W Base K
54 52 53 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y W Base K
55 21 1 47 2 hlrelat1 K HL X join K Y Base K W Base K X join K Y < K W p A ¬ p ˙ X join K Y p ˙ W
56 18 51 54 55 syl3anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y X join K Y < K W p A ¬ p ˙ X join K Y p ˙ W
57 49 56 mpd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A ¬ p ˙ X join K Y p ˙ W
58 43 57 reximddv K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A p ˙ W p X p Y p Z
59 58 3expa K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y Z ˙ X join K Y p A p ˙ W p X p Y p Z
60 simp11l K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y K HL
61 60 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y K HL
62 61 hllatd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y K Lat
63 22 ad2antrl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p Base K
64 simp121 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y X A
65 64 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X A
66 simp122 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y Y A
67 66 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y Y A
68 61 65 67 50 syl3anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X join K Y Base K
69 simp11r K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y W H
70 69 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y W H
71 70 53 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y W Base K
72 simprr3 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p ˙ X join K Y
73 simp131 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y X ˙ W
74 73 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X ˙ W
75 simp132 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y Y ˙ W
76 75 adantr K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y Y ˙ W
77 65 26 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X Base K
78 67 30 syl K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y Y Base K
79 21 1 33 latjle12 K Lat X Base K Y Base K W Base K X ˙ W Y ˙ W X join K Y ˙ W
80 62 77 78 71 79 syl13anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X ˙ W Y ˙ W X join K Y ˙ W
81 74 76 80 mpbi2and K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y X join K Y ˙ W
82 21 1 62 63 68 71 72 81 lattrd K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p ˙ W
83 simprr1 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p X
84 simprr2 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p Y
85 simpl3 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y ¬ Z ˙ X join K Y
86 nbrne2 p ˙ X join K Y ¬ Z ˙ X join K Y p Z
87 72 85 86 syl2anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p Z
88 83 84 87 3jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p X p Y p Z
89 82 88 jca K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y p ˙ W p X p Y p Z
90 simp2 K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y X Y
91 1 33 2 hlsupr K HL X A Y A X Y p A p X p Y p ˙ X join K Y
92 60 64 66 90 91 syl31anc K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p X p Y p ˙ X join K Y
93 89 92 reximddv K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p ˙ W p X p Y p Z
94 93 3expa K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y ¬ Z ˙ X join K Y p A p ˙ W p X p Y p Z
95 59 94 pm2.61dan K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W X Y p A p ˙ W p X p Y p Z
96 16 95 pm2.61dane K HL W H X A Y A Z A X ˙ W Y ˙ W Z ˙ W p A p ˙ W p X p Y p Z