Metamath Proof Explorer


Theorem cdleme5

Description: Part of proof of Lemma E in Crawley p. 113. G represents f_s(r). We show r \/ f_s(r)) = p \/ q at the top of p. 114. (Contributed by NM, 7-Jun-2012)

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

Proof

Step Hyp Ref Expression
1 cdleme4.l ˙ = K
2 cdleme4.j ˙ = join K
3 cdleme4.m ˙ = meet K
4 cdleme4.a A = Atoms K
5 cdleme4.h H = LHyp K
6 cdleme4.u U = P ˙ Q ˙ W
7 cdleme4.f F = S ˙ U ˙ Q ˙ P ˙ S ˙ W
8 cdleme4.g G = P ˙ Q ˙ F ˙ R ˙ S ˙ W
9 8 oveq2i R ˙ G = R ˙ P ˙ Q ˙ F ˙ R ˙ S ˙ W
10 simp1l K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q K HL
11 simp23l K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R A
12 simp21 K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P A
13 simp22 K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q Q A
14 eqid Base K = Base K
15 14 2 4 hlatjcl K HL P A Q A P ˙ Q Base K
16 10 12 13 15 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q Base K
17 10 hllatd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q K Lat
18 simp1 K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q K HL W H
19 simp3ll K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S A
20 1 2 3 4 5 6 7 14 cdleme1b K HL W H P A Q A S A F Base K
21 18 12 13 19 20 syl13anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F Base K
22 14 2 4 hlatjcl K HL R A S A R ˙ S Base K
23 10 11 19 22 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ S Base K
24 simp1r K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q W H
25 14 5 lhpbase W H W Base K
26 24 25 syl K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q W Base K
27 14 3 latmcl K Lat R ˙ S Base K W Base K R ˙ S ˙ W Base K
28 17 23 26 27 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ S ˙ W Base K
29 14 2 latjcl K Lat F Base K R ˙ S ˙ W Base K F ˙ R ˙ S ˙ W Base K
30 17 21 28 29 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F ˙ R ˙ S ˙ W Base K
31 simp3r K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ P ˙ Q
32 14 1 2 3 4 atmod3i1 K HL R A P ˙ Q Base K F ˙ R ˙ S ˙ W Base K R ˙ P ˙ Q R ˙ P ˙ Q ˙ F ˙ R ˙ S ˙ W = P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W
33 10 11 16 30 31 32 syl131anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ P ˙ Q ˙ F ˙ R ˙ S ˙ W = P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W
34 14 4 atbase S A S Base K
35 19 34 syl K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S Base K
36 14 1 2 latlej2 K Lat S Base K P ˙ Q Base K P ˙ Q ˙ S ˙ P ˙ Q
37 17 35 16 36 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q ˙ S ˙ P ˙ Q
38 14 4 atbase R A R Base K
39 11 38 syl K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R Base K
40 14 2 latj12 K Lat R Base K F Base K S Base K R ˙ F ˙ S = F ˙ R ˙ S
41 17 39 21 35 40 syl13anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ F ˙ S = F ˙ R ˙ S
42 1 2 3 4 5 6 14 cdleme0aa K HL W H P A Q A U Base K
43 18 12 13 42 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q U Base K
44 14 2 latj12 K Lat S Base K R Base K U Base K S ˙ R ˙ U = R ˙ S ˙ U
45 17 35 39 43 44 syl13anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ R ˙ U = R ˙ S ˙ U
46 1 2 3 4 5 6 cdleme4 K HL W H P A Q A R A ¬ R ˙ W R ˙ P ˙ Q P ˙ Q = R ˙ U
47 46 3adant3l K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q = R ˙ U
48 47 oveq2d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ P ˙ Q = S ˙ R ˙ U
49 14 2 latjcom K Lat F Base K S Base K F ˙ S = S ˙ F
50 17 21 35 49 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F ˙ S = S ˙ F
51 simp3l K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S A ¬ S ˙ W
52 1 2 3 4 5 6 7 cdleme1 K HL W H P A Q A S A ¬ S ˙ W S ˙ F = S ˙ U
53 18 12 13 51 52 syl13anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ F = S ˙ U
54 50 53 eqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F ˙ S = S ˙ U
55 54 oveq2d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ F ˙ S = R ˙ S ˙ U
56 45 48 55 3eqtr4d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ P ˙ Q = R ˙ F ˙ S
57 1 2 4 hlatlej1 K HL R A S A R ˙ R ˙ S
58 10 11 19 57 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ R ˙ S
59 14 1 2 3 4 atmod3i1 K HL R A R ˙ S Base K W Base K R ˙ R ˙ S R ˙ R ˙ S ˙ W = R ˙ S ˙ R ˙ W
60 10 11 23 26 58 59 syl131anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ R ˙ S ˙ W = R ˙ S ˙ R ˙ W
61 simp23r K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ R ˙ W
62 eqid 1. K = 1. K
63 1 2 62 4 5 lhpjat2 K HL W H R A ¬ R ˙ W R ˙ W = 1. K
64 18 11 61 63 syl12anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ W = 1. K
65 64 oveq2d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ S ˙ R ˙ W = R ˙ S ˙ 1. K
66 hlol K HL K OL
67 10 66 syl K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q K OL
68 14 3 62 olm11 K OL R ˙ S Base K R ˙ S ˙ 1. K = R ˙ S
69 67 23 68 syl2anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ S ˙ 1. K = R ˙ S
70 65 69 eqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ S ˙ R ˙ W = R ˙ S
71 60 70 eqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ R ˙ S ˙ W = R ˙ S
72 71 oveq2d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F ˙ R ˙ R ˙ S ˙ W = F ˙ R ˙ S
73 41 56 72 3eqtr4d K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ P ˙ Q = F ˙ R ˙ R ˙ S ˙ W
74 14 2 latj12 K Lat F Base K R Base K R ˙ S ˙ W Base K F ˙ R ˙ R ˙ S ˙ W = R ˙ F ˙ R ˙ S ˙ W
75 17 21 39 28 74 syl13anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q F ˙ R ˙ R ˙ S ˙ W = R ˙ F ˙ R ˙ S ˙ W
76 73 75 eqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q S ˙ P ˙ Q = R ˙ F ˙ R ˙ S ˙ W
77 37 76 breqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W
78 14 2 latjcl K Lat R Base K F ˙ R ˙ S ˙ W Base K R ˙ F ˙ R ˙ S ˙ W Base K
79 17 39 30 78 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ F ˙ R ˙ S ˙ W Base K
80 14 1 3 latleeqm1 K Lat P ˙ Q Base K R ˙ F ˙ R ˙ S ˙ W Base K P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W = P ˙ Q
81 17 16 79 80 syl3anc K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W = P ˙ Q
82 77 81 mpbid K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q P ˙ Q ˙ R ˙ F ˙ R ˙ S ˙ W = P ˙ Q
83 33 82 eqtrd K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ P ˙ Q ˙ F ˙ R ˙ S ˙ W = P ˙ Q
84 9 83 eqtrid K HL W H P A Q A R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q R ˙ G = P ˙ Q