Metamath Proof Explorer


Theorem cdlemc2

Description: Part of proof of Lemma C in Crawley p. 112. (Contributed by NM, 25-May-2012)

Ref Expression
Hypotheses cdlemc2.l ˙ = K
cdlemc2.j ˙ = join K
cdlemc2.m ˙ = meet K
cdlemc2.a A = Atoms K
cdlemc2.h H = LHyp K
cdlemc2.t T = LTrn K W
Assertion cdlemc2 K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F Q ˙ F P ˙ P ˙ Q ˙ W

Proof

Step Hyp Ref Expression
1 cdlemc2.l ˙ = K
2 cdlemc2.j ˙ = join K
3 cdlemc2.m ˙ = meet K
4 cdlemc2.a A = Atoms K
5 cdlemc2.h H = LHyp K
6 cdlemc2.t T = LTrn K W
7 simp1l K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W K HL
8 simp3ll K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P A
9 simp3rl K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W Q A
10 1 2 4 hlatlej2 K HL P A Q A Q ˙ P ˙ Q
11 7 8 9 10 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W Q ˙ P ˙ Q
12 simp1 K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W K HL W H
13 eqid Base K = Base K
14 13 4 atbase Q A Q Base K
15 9 14 syl K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W Q Base K
16 simp3l K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P A ¬ P ˙ W
17 13 1 2 3 4 5 cdlemc1 K HL W H Q Base K P A ¬ P ˙ W P ˙ P ˙ Q ˙ W = P ˙ Q
18 12 15 16 17 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P ˙ P ˙ Q ˙ W = P ˙ Q
19 11 18 breqtrrd K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W Q ˙ P ˙ P ˙ Q ˙ W
20 simp2 K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F T
21 7 hllatd K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W K Lat
22 13 4 atbase P A P Base K
23 8 22 syl K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P Base K
24 13 2 latjcl K Lat P Base K Q Base K P ˙ Q Base K
25 21 23 15 24 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P ˙ Q Base K
26 simp1r K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W W H
27 13 5 lhpbase W H W Base K
28 26 27 syl K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W W Base K
29 13 3 latmcl K Lat P ˙ Q Base K W Base K P ˙ Q ˙ W Base K
30 21 25 28 29 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P ˙ Q ˙ W Base K
31 13 2 latjcl K Lat P Base K P ˙ Q ˙ W Base K P ˙ P ˙ Q ˙ W Base K
32 21 23 30 31 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P ˙ P ˙ Q ˙ W Base K
33 13 1 5 6 ltrnle K HL W H F T Q Base K P ˙ P ˙ Q ˙ W Base K Q ˙ P ˙ P ˙ Q ˙ W F Q ˙ F P ˙ P ˙ Q ˙ W
34 12 20 15 32 33 syl112anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W Q ˙ P ˙ P ˙ Q ˙ W F Q ˙ F P ˙ P ˙ Q ˙ W
35 19 34 mpbid K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F Q ˙ F P ˙ P ˙ Q ˙ W
36 13 2 5 6 ltrnj K HL W H F T P Base K P ˙ Q ˙ W Base K F P ˙ P ˙ Q ˙ W = F P ˙ F P ˙ Q ˙ W
37 12 20 23 30 36 syl112anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F P ˙ P ˙ Q ˙ W = F P ˙ F P ˙ Q ˙ W
38 13 1 3 latmle2 K Lat P ˙ Q Base K W Base K P ˙ Q ˙ W ˙ W
39 21 25 28 38 syl3anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W P ˙ Q ˙ W ˙ W
40 13 1 5 6 ltrnval1 K HL W H F T P ˙ Q ˙ W Base K P ˙ Q ˙ W ˙ W F P ˙ Q ˙ W = P ˙ Q ˙ W
41 12 20 30 39 40 syl112anc K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F P ˙ Q ˙ W = P ˙ Q ˙ W
42 41 oveq2d K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F P ˙ F P ˙ Q ˙ W = F P ˙ P ˙ Q ˙ W
43 37 42 eqtrd K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F P ˙ P ˙ Q ˙ W = F P ˙ P ˙ Q ˙ W
44 35 43 breqtrd K HL W H F T P A ¬ P ˙ W Q A ¬ Q ˙ W F Q ˙ F P ˙ P ˙ Q ˙ W