Metamath Proof Explorer


Theorem dia2dimlem1

Description: Lemma for dia2dim . Show properties of the auxiliary atom Q . Part of proof of Lemma M in Crawley p. 121 line 3. (Contributed by NM, 8-Sep-2014)

Ref Expression
Hypotheses dia2dimlem1.l ˙ = K
dia2dimlem1.j ˙ = join K
dia2dimlem1.m ˙ = meet K
dia2dimlem1.a A = Atoms K
dia2dimlem1.h H = LHyp K
dia2dimlem1.t T = LTrn K W
dia2dimlem1.r R = trL K W
dia2dimlem1.q Q = P ˙ U ˙ F P ˙ V
dia2dimlem1.k φ K HL W H
dia2dimlem1.u φ U A U ˙ W
dia2dimlem1.v φ V A V ˙ W
dia2dimlem1.p φ P A ¬ P ˙ W
dia2dimlem1.f φ F T F P P
dia2dimlem1.rf φ R F ˙ U ˙ V
dia2dimlem1.uv φ U V
dia2dimlem1.ru φ R F U
Assertion dia2dimlem1 φ Q A ¬ Q ˙ W

Proof

Step Hyp Ref Expression
1 dia2dimlem1.l ˙ = K
2 dia2dimlem1.j ˙ = join K
3 dia2dimlem1.m ˙ = meet K
4 dia2dimlem1.a A = Atoms K
5 dia2dimlem1.h H = LHyp K
6 dia2dimlem1.t T = LTrn K W
7 dia2dimlem1.r R = trL K W
8 dia2dimlem1.q Q = P ˙ U ˙ F P ˙ V
9 dia2dimlem1.k φ K HL W H
10 dia2dimlem1.u φ U A U ˙ W
11 dia2dimlem1.v φ V A V ˙ W
12 dia2dimlem1.p φ P A ¬ P ˙ W
13 dia2dimlem1.f φ F T F P P
14 dia2dimlem1.rf φ R F ˙ U ˙ V
15 dia2dimlem1.uv φ U V
16 dia2dimlem1.ru φ R F U
17 9 simpld φ K HL
18 12 simpld φ P A
19 1 4 5 6 7 trlat K HL W H P A ¬ P ˙ W F T F P P R F A
20 9 12 13 19 syl3anc φ R F A
21 10 simpld φ U A
22 13 simpld φ F T
23 1 4 5 6 ltrnel K HL W H F T P A ¬ P ˙ W F P A ¬ F P ˙ W
24 9 22 12 23 syl3anc φ F P A ¬ F P ˙ W
25 24 simpld φ F P A
26 11 simpld φ V A
27 12 simprd φ ¬ P ˙ W
28 1 5 6 7 trlle K HL W H F T R F ˙ W
29 9 22 28 syl2anc φ R F ˙ W
30 10 simprd φ U ˙ W
31 17 hllatd φ K Lat
32 eqid Base K = Base K
33 32 4 atbase R F A R F Base K
34 20 33 syl φ R F Base K
35 32 4 atbase U A U Base K
36 21 35 syl φ U Base K
37 9 simprd φ W H
38 32 5 lhpbase W H W Base K
39 37 38 syl φ W Base K
40 32 1 2 latjle12 K Lat R F Base K U Base K W Base K R F ˙ W U ˙ W R F ˙ U ˙ W
41 31 34 36 39 40 syl13anc φ R F ˙ W U ˙ W R F ˙ U ˙ W
42 29 30 41 mpbi2and φ R F ˙ U ˙ W
43 32 4 atbase P A P Base K
44 18 43 syl φ P Base K
45 32 2 4 hlatjcl K HL R F A U A R F ˙ U Base K
46 17 20 21 45 syl3anc φ R F ˙ U Base K
47 32 1 lattr K Lat P Base K R F ˙ U Base K W Base K P ˙ R F ˙ U R F ˙ U ˙ W P ˙ W
48 31 44 46 39 47 syl13anc φ P ˙ R F ˙ U R F ˙ U ˙ W P ˙ W
49 42 48 mpan2d φ P ˙ R F ˙ U P ˙ W
50 27 49 mtod φ ¬ P ˙ R F ˙ U
51 11 simprd φ V ˙ W
52 24 simprd φ ¬ F P ˙ W
53 nbrne2 V ˙ W ¬ F P ˙ W V F P
54 51 52 53 syl2anc φ V F P
55 54 necomd φ F P V
56 50 55 jca φ ¬ P ˙ R F ˙ U F P V
57 31 adantr φ P ˙ U = F P ˙ V K Lat
58 44 adantr φ P ˙ U = F P ˙ V P Base K
59 32 2 4 hlatjcl K HL V A U A V ˙ U Base K
60 17 26 21 59 syl3anc φ V ˙ U Base K
61 60 adantr φ P ˙ U = F P ˙ V V ˙ U Base K
62 39 adantr φ P ˙ U = F P ˙ V W Base K
63 1 2 4 hlatlej2 K HL F P A V A V ˙ F P ˙ V
64 17 25 26 63 syl3anc φ V ˙ F P ˙ V
65 64 adantr φ P ˙ U = F P ˙ V V ˙ F P ˙ V
66 simpr φ P ˙ U = F P ˙ V P ˙ U = F P ˙ V
67 65 66 breqtrrd φ P ˙ U = F P ˙ V V ˙ P ˙ U
68 15 necomd φ V U
69 1 2 4 hlatexch2 K HL V A P A U A V U V ˙ P ˙ U P ˙ V ˙ U
70 17 26 18 21 68 69 syl131anc φ V ˙ P ˙ U P ˙ V ˙ U
71 70 adantr φ P ˙ U = F P ˙ V V ˙ P ˙ U P ˙ V ˙ U
72 67 71 mpd φ P ˙ U = F P ˙ V P ˙ V ˙ U
73 32 4 atbase V A V Base K
74 26 73 syl φ V Base K
75 32 1 2 latjle12 K Lat V Base K U Base K W Base K V ˙ W U ˙ W V ˙ U ˙ W
76 31 74 36 39 75 syl13anc φ V ˙ W U ˙ W V ˙ U ˙ W
77 51 30 76 mpbi2and φ V ˙ U ˙ W
78 77 adantr φ P ˙ U = F P ˙ V V ˙ U ˙ W
79 32 1 57 58 61 62 72 78 lattrd φ P ˙ U = F P ˙ V P ˙ W
80 79 ex φ P ˙ U = F P ˙ V P ˙ W
81 80 necon3bd φ ¬ P ˙ W P ˙ U F P ˙ V
82 27 81 mpd φ P ˙ U F P ˙ V
83 1 2 4 hlatlej2 K HL P A F P A F P ˙ P ˙ F P
84 17 18 25 83 syl3anc φ F P ˙ P ˙ F P
85 1 2 3 4 5 6 7 trlval2 K HL W H F T P A ¬ P ˙ W R F = P ˙ F P ˙ W
86 9 22 12 85 syl3anc φ R F = P ˙ F P ˙ W
87 86 oveq2d φ P ˙ R F = P ˙ P ˙ F P ˙ W
88 32 2 4 hlatjcl K HL P A F P A P ˙ F P Base K
89 17 18 25 88 syl3anc φ P ˙ F P Base K
90 1 2 4 hlatlej1 K HL P A F P A P ˙ P ˙ F P
91 17 18 25 90 syl3anc φ P ˙ P ˙ F P
92 32 1 2 3 4 atmod3i1 K HL P A P ˙ F P Base K W Base K P ˙ P ˙ F P P ˙ P ˙ F P ˙ W = P ˙ F P ˙ P ˙ W
93 17 18 89 39 91 92 syl131anc φ P ˙ P ˙ F P ˙ W = P ˙ F P ˙ P ˙ W
94 eqid 1. K = 1. K
95 1 2 94 4 5 lhpjat2 K HL W H P A ¬ P ˙ W P ˙ W = 1. K
96 9 12 95 syl2anc φ P ˙ W = 1. K
97 96 oveq2d φ P ˙ F P ˙ P ˙ W = P ˙ F P ˙ 1. K
98 hlol K HL K OL
99 17 98 syl φ K OL
100 32 3 94 olm11 K OL P ˙ F P Base K P ˙ F P ˙ 1. K = P ˙ F P
101 99 89 100 syl2anc φ P ˙ F P ˙ 1. K = P ˙ F P
102 97 101 eqtrd φ P ˙ F P ˙ P ˙ W = P ˙ F P
103 93 102 eqtrd φ P ˙ P ˙ F P ˙ W = P ˙ F P
104 87 103 eqtrd φ P ˙ R F = P ˙ F P
105 84 104 breqtrrd φ F P ˙ P ˙ R F
106 2 4 hlatjcom K HL U A V A U ˙ V = V ˙ U
107 17 21 26 106 syl3anc φ U ˙ V = V ˙ U
108 14 107 breqtrd φ R F ˙ V ˙ U
109 1 2 4 hlatexch2 K HL R F A V A U A R F U R F ˙ V ˙ U V ˙ R F ˙ U
110 17 20 26 21 16 109 syl131anc φ R F ˙ V ˙ U V ˙ R F ˙ U
111 108 110 mpd φ V ˙ R F ˙ U
112 105 111 jca φ F P ˙ P ˙ R F V ˙ R F ˙ U
113 1 2 3 4 ps-2c K HL P A R F A U A F P A V A ¬ P ˙ R F ˙ U F P V P ˙ U F P ˙ V F P ˙ P ˙ R F V ˙ R F ˙ U P ˙ U ˙ F P ˙ V A
114 17 18 20 21 25 26 56 82 112 113 syl333anc φ P ˙ U ˙ F P ˙ V A
115 8 114 eqeltrid φ Q A
116 32 2 4 hlatjcl K HL P A U A P ˙ U Base K
117 17 18 21 116 syl3anc φ P ˙ U Base K
118 32 2 4 hlatjcl K HL F P A V A F P ˙ V Base K
119 17 25 26 118 syl3anc φ F P ˙ V Base K
120 32 1 3 latmle1 K Lat P ˙ U Base K F P ˙ V Base K P ˙ U ˙ F P ˙ V ˙ P ˙ U
121 31 117 119 120 syl3anc φ P ˙ U ˙ F P ˙ V ˙ P ˙ U
122 8 121 eqbrtrid φ Q ˙ P ˙ U
123 32 4 atbase Q A Q Base K
124 115 123 syl φ Q Base K
125 32 1 3 latlem12 K Lat Q Base K P ˙ U Base K W Base K Q ˙ P ˙ U Q ˙ W Q ˙ P ˙ U ˙ W
126 31 124 117 39 125 syl13anc φ Q ˙ P ˙ U Q ˙ W Q ˙ P ˙ U ˙ W
127 126 biimpd φ Q ˙ P ˙ U Q ˙ W Q ˙ P ˙ U ˙ W
128 122 127 mpand φ Q ˙ W Q ˙ P ˙ U ˙ W
129 128 imp φ Q ˙ W Q ˙ P ˙ U ˙ W
130 eqid 0. K = 0. K
131 1 3 130 4 5 lhpmat K HL W H P A ¬ P ˙ W P ˙ W = 0. K
132 9 12 131 syl2anc φ P ˙ W = 0. K
133 132 oveq1d φ P ˙ W ˙ U = 0. K ˙ U
134 32 1 2 3 4 atmod4i1 K HL U A P Base K W Base K U ˙ W P ˙ W ˙ U = P ˙ U ˙ W
135 17 21 44 39 30 134 syl131anc φ P ˙ W ˙ U = P ˙ U ˙ W
136 32 2 130 olj02 K OL U Base K 0. K ˙ U = U
137 99 36 136 syl2anc φ 0. K ˙ U = U
138 133 135 137 3eqtr3d φ P ˙ U ˙ W = U
139 138 adantr φ Q ˙ W P ˙ U ˙ W = U
140 129 139 breqtrd φ Q ˙ W Q ˙ U
141 hlatl K HL K AtLat
142 17 141 syl φ K AtLat
143 142 adantr φ Q ˙ W K AtLat
144 115 adantr φ Q ˙ W Q A
145 21 adantr φ Q ˙ W U A
146 1 4 atcmp K AtLat Q A U A Q ˙ U Q = U
147 143 144 145 146 syl3anc φ Q ˙ W Q ˙ U Q = U
148 140 147 mpbid φ Q ˙ W Q = U
149 32 1 3 latmle2 K Lat P ˙ U Base K F P ˙ V Base K P ˙ U ˙ F P ˙ V ˙ F P ˙ V
150 31 117 119 149 syl3anc φ P ˙ U ˙ F P ˙ V ˙ F P ˙ V
151 8 150 eqbrtrid φ Q ˙ F P ˙ V
152 32 1 3 latlem12 K Lat Q Base K F P ˙ V Base K W Base K Q ˙ F P ˙ V Q ˙ W Q ˙ F P ˙ V ˙ W
153 31 124 119 39 152 syl13anc φ Q ˙ F P ˙ V Q ˙ W Q ˙ F P ˙ V ˙ W
154 153 biimpd φ Q ˙ F P ˙ V Q ˙ W Q ˙ F P ˙ V ˙ W
155 151 154 mpand φ Q ˙ W Q ˙ F P ˙ V ˙ W
156 155 imp φ Q ˙ W Q ˙ F P ˙ V ˙ W
157 1 3 130 4 5 lhpmat K HL W H F P A ¬ F P ˙ W F P ˙ W = 0. K
158 9 24 157 syl2anc φ F P ˙ W = 0. K
159 158 oveq1d φ F P ˙ W ˙ V = 0. K ˙ V
160 32 4 atbase F P A F P Base K
161 25 160 syl φ F P Base K
162 32 1 2 3 4 atmod4i1 K HL V A F P Base K W Base K V ˙ W F P ˙ W ˙ V = F P ˙ V ˙ W
163 17 26 161 39 51 162 syl131anc φ F P ˙ W ˙ V = F P ˙ V ˙ W
164 32 2 130 olj02 K OL V Base K 0. K ˙ V = V
165 99 74 164 syl2anc φ 0. K ˙ V = V
166 159 163 165 3eqtr3d φ F P ˙ V ˙ W = V
167 166 adantr φ Q ˙ W F P ˙ V ˙ W = V
168 156 167 breqtrd φ Q ˙ W Q ˙ V
169 26 adantr φ Q ˙ W V A
170 1 4 atcmp K AtLat Q A V A Q ˙ V Q = V
171 143 144 169 170 syl3anc φ Q ˙ W Q ˙ V Q = V
172 168 171 mpbid φ Q ˙ W Q = V
173 148 172 eqtr3d φ Q ˙ W U = V
174 173 ex φ Q ˙ W U = V
175 174 necon3ad φ U V ¬ Q ˙ W
176 15 175 mpd φ ¬ Q ˙ W
177 115 176 jca φ Q A ¬ Q ˙ W