Metamath Proof Explorer


Theorem cdleme35e

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 cdleme35e K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ Q ˙ F ˙ W = P ˙ R

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 1 2 3 4 5 6 7 cdleme35d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q Q ˙ F ˙ W = P ˙ R ˙ W
9 8 oveq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ Q ˙ F ˙ W = P ˙ P ˙ R ˙ W
10 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q K HL
11 simp12l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P A
12 simp2rl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q R A
13 eqid Base K = Base K
14 13 2 4 hlatjcl K HL P A R A P ˙ R Base K
15 10 11 12 14 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
16 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q W H
17 13 5 lhpbase W H W Base K
18 16 17 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
19 1 2 4 hlatlej1 K HL P A R A P ˙ P ˙ R
20 10 11 12 19 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ P ˙ R
21 13 1 2 3 4 atmod3i1 K HL P A P ˙ R Base K W Base K P ˙ P ˙ R P ˙ P ˙ R ˙ W = P ˙ R ˙ P ˙ W
22 10 11 15 18 20 21 syl131anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ P ˙ R ˙ W = P ˙ R ˙ P ˙ W
23 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
24 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
25 eqid 1. K = 1. K
26 1 2 25 4 5 lhpjat2 K HL W H P A ¬ P ˙ W P ˙ W = 1. K
27 23 24 26 syl2anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ W = 1. K
28 27 oveq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ R ˙ P ˙ W = P ˙ R ˙ 1. K
29 hlol K HL K OL
30 10 29 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q K OL
31 13 3 25 olm11 K OL P ˙ R Base K P ˙ R ˙ 1. K = P ˙ R
32 30 15 31 syl2anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ R ˙ 1. K = P ˙ R
33 28 32 eqtrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ R ˙ P ˙ W = P ˙ R
34 9 22 33 3eqtrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W ¬ R ˙ P ˙ Q P ˙ Q ˙ F ˙ W = P ˙ R