Metamath Proof Explorer


Theorem cdleme35c

Description: Part of proof of Lemma E in Crawley p. 113. TODO: FIX COMMENT. (Contributed by NM, 10-Mar-2013)

Ref Expression
Hypotheses cdleme35.l ˙ = K
cdleme35.j ˙ = join K
cdleme35.m ˙ = meet K
cdleme35.a A = Atoms K
cdleme35.h H = LHyp K
cdleme35.u U = P ˙ Q ˙ W
cdleme35.f F = R ˙ U ˙ Q ˙ P ˙ R ˙ W
Assertion cdleme35c K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ F = Q ˙ P ˙ R ˙ W

Proof

Step Hyp Ref Expression
1 cdleme35.l ˙ = K
2 cdleme35.j ˙ = join K
3 cdleme35.m ˙ = meet K
4 cdleme35.a A = Atoms K
5 cdleme35.h H = LHyp K
6 cdleme35.u U = P ˙ Q ˙ W
7 cdleme35.f F = R ˙ U ˙ Q ˙ P ˙ R ˙ W
8 7 oveq2i Q ˙ F = Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W
9 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q K HL
10 simp13l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q A
11 simp2rl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q R A
12 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q K HL W H
13 simp12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P A ¬ P ˙ W
14 simp2l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P Q
15 1 2 3 4 5 6 cdleme0a K HL W H P A ¬ P ˙ W Q A P Q U A
16 12 13 10 14 15 syl112anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q U A
17 eqid Base K = Base K
18 17 2 4 hlatjcl K HL R A U A R ˙ U Base K
19 9 11 16 18 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q R ˙ U Base K
20 9 hllatd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q K Lat
21 17 4 atbase Q A Q Base K
22 10 21 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q Base K
23 simp12l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P A
24 17 2 4 hlatjcl K HL P A R A P ˙ R Base K
25 9 23 11 24 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ R Base K
26 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q W H
27 17 5 lhpbase W H W Base K
28 26 27 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q W Base K
29 17 3 latmcl K Lat P ˙ R Base K W Base K P ˙ R ˙ W Base K
30 20 25 28 29 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ R ˙ W Base K
31 17 2 latjcl K Lat Q Base K P ˙ R ˙ W Base K Q ˙ P ˙ R ˙ W Base K
32 20 22 30 31 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ P ˙ R ˙ W Base K
33 17 1 2 latlej1 K Lat Q Base K P ˙ R ˙ W Base K Q ˙ Q ˙ P ˙ R ˙ W
34 20 22 30 33 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ Q ˙ P ˙ R ˙ W
35 17 1 2 3 4 atmod1i1 K HL Q A R ˙ U Base K Q ˙ P ˙ R ˙ W Base K Q ˙ Q ˙ P ˙ R ˙ W Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W
36 9 10 19 32 34 35 syl131anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W
37 1 2 3 4 5 6 7 cdleme35b K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ P ˙ R ˙ W ˙ Q ˙ R ˙ U
38 17 2 latjcl K Lat Q Base K R ˙ U Base K Q ˙ R ˙ U Base K
39 20 22 19 38 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ R ˙ U Base K
40 17 1 3 latleeqm2 K Lat Q ˙ P ˙ R ˙ W Base K Q ˙ R ˙ U Base K Q ˙ P ˙ R ˙ W ˙ Q ˙ R ˙ U Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ P ˙ R ˙ W
41 20 32 39 40 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ P ˙ R ˙ W ˙ Q ˙ R ˙ U Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ P ˙ R ˙ W
42 37 41 mpbid K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ P ˙ R ˙ W
43 36 42 eqtrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ R ˙ U ˙ Q ˙ P ˙ R ˙ W = Q ˙ P ˙ R ˙ W
44 8 43 eqtrid K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ F = Q ˙ P ˙ R ˙ W