Metamath Proof Explorer


Theorem cdlemg18b

Description: Lemma for cdlemg18c . TODO: fix comment. (Contributed by NM, 15-May-2013)

Ref Expression
Hypotheses cdlemg12.l ˙ = K
cdlemg12.j ˙ = join K
cdlemg12.m ˙ = meet K
cdlemg12.a A = Atoms K
cdlemg12.h H = LHyp K
cdlemg12.t T = LTrn K W
cdlemg12b.r R = trL K W
cdlemg18b.u U = P ˙ Q ˙ W
Assertion cdlemg18b K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q ¬ P ˙ U ˙ F Q

Proof

Step Hyp Ref Expression
1 cdlemg12.l ˙ = K
2 cdlemg12.j ˙ = join K
3 cdlemg12.m ˙ = meet K
4 cdlemg12.a A = Atoms K
5 cdlemg12.h H = LHyp K
6 cdlemg12.t T = LTrn K W
7 cdlemg12b.r R = trL K W
8 cdlemg18b.u U = P ˙ Q ˙ W
9 simp33 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q F Q ˙ F P P ˙ Q
10 simp3r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ U ˙ F Q
11 simp1l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q K HL
12 simp1r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q W H
13 simp21 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P A ¬ P ˙ W
14 simp22l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q Q A
15 simp3l1 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P Q
16 1 2 3 4 5 8 cdleme0a K HL W H P A ¬ P ˙ W Q A P Q U A
17 11 12 13 14 15 16 syl212anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q U A
18 simp1 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q K HL W H
19 simp23 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F T
20 1 4 5 6 ltrnat K HL W H F T Q A F Q A
21 18 19 14 20 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q A
22 1 2 4 hlatlej1 K HL U A F Q A U ˙ U ˙ F Q
23 11 17 21 22 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q U ˙ U ˙ F Q
24 11 hllatd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q K Lat
25 simp21l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P A
26 eqid Base K = Base K
27 26 4 atbase P A P Base K
28 25 27 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P Base K
29 26 4 atbase U A U Base K
30 17 29 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q U Base K
31 26 2 4 hlatjcl K HL U A F Q A U ˙ F Q Base K
32 11 17 21 31 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q U ˙ F Q Base K
33 26 1 2 latjle12 K Lat P Base K U Base K U ˙ F Q Base K P ˙ U ˙ F Q U ˙ U ˙ F Q P ˙ U ˙ U ˙ F Q
34 24 28 30 32 33 syl13anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ U ˙ F Q U ˙ U ˙ F Q P ˙ U ˙ U ˙ F Q
35 10 23 34 mpbi2and K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ U ˙ U ˙ F Q
36 1 2 3 4 5 8 cdleme0cp K HL W H P A ¬ P ˙ W Q A P ˙ U = P ˙ Q
37 11 12 13 14 36 syl22anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ U = P ˙ Q
38 simp22 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q Q A ¬ Q ˙ W
39 5 6 1 2 4 3 8 cdlemg2kq K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T F P ˙ F Q = F Q ˙ U
40 18 13 38 19 39 syl121anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F P ˙ F Q = F Q ˙ U
41 2 4 hlatjcom K HL F Q A U A F Q ˙ U = U ˙ F Q
42 11 21 17 41 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q ˙ U = U ˙ F Q
43 40 42 eqtr2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q U ˙ F Q = F P ˙ F Q
44 35 37 43 3brtr3d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ Q ˙ F P ˙ F Q
45 1 4 5 6 ltrnat K HL W H F T P A F P A
46 18 19 25 45 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F P A
47 1 2 4 ps-1 K HL P A Q A P Q F P A F Q A P ˙ Q ˙ F P ˙ F Q P ˙ Q = F P ˙ F Q
48 11 25 14 15 46 21 47 syl132anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ Q ˙ F P ˙ F Q P ˙ Q = F P ˙ F Q
49 44 48 mpbid K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q P ˙ Q = F P ˙ F Q
50 2 4 hlatjcom K HL F P A F Q A F P ˙ F Q = F Q ˙ F P
51 11 46 21 50 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F P ˙ F Q = F Q ˙ F P
52 49 51 eqtr2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q ˙ F P = P ˙ Q
53 52 3exp K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q ˙ F P = P ˙ Q
54 53 exp4a K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q ˙ F P = P ˙ Q
55 54 3imp K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q P ˙ U ˙ F Q F Q ˙ F P = P ˙ Q
56 55 necon3ad K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q F Q ˙ F P P ˙ Q ¬ P ˙ U ˙ F Q
57 9 56 mpd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T P Q F P Q F Q ˙ F P P ˙ Q ¬ P ˙ U ˙ F Q