Metamath Proof Explorer


Theorem cdleme43dN

Description: Part of proof of Lemma E in Crawley p. 113. TODO: FIX COMMENT p. 116 2nd line: f(r) v s = f(r) v f(g(s)). (Contributed by NM, 20-Mar-2013) (New usage is discouraged.)

Ref Expression
Hypotheses cdleme43.b B = Base K
cdleme43.l ˙ = K
cdleme43.j ˙ = join K
cdleme43.m ˙ = meet K
cdleme43.a A = Atoms K
cdleme43.h H = LHyp K
cdleme43.u U = P ˙ Q ˙ W
cdleme43.x X = Q ˙ P ˙ W
cdleme43.c C = S ˙ U ˙ Q ˙ P ˙ S ˙ W
cdleme43.f Z = P ˙ Q ˙ C ˙ R ˙ S ˙ W
cdleme43.d D = S ˙ X ˙ P ˙ Q ˙ S ˙ W
cdleme43.g G = Q ˙ P ˙ D ˙ Z ˙ S ˙ W
cdleme43.e E = D ˙ U ˙ Q ˙ P ˙ D ˙ W
cdleme43.v V = Z ˙ S ˙ W
cdleme43.y Y = R ˙ D ˙ W
Assertion cdleme43dN K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Z ˙ S = Z ˙ E

Proof

Step Hyp Ref Expression
1 cdleme43.b B = Base K
2 cdleme43.l ˙ = K
3 cdleme43.j ˙ = join K
4 cdleme43.m ˙ = meet K
5 cdleme43.a A = Atoms K
6 cdleme43.h H = LHyp K
7 cdleme43.u U = P ˙ Q ˙ W
8 cdleme43.x X = Q ˙ P ˙ W
9 cdleme43.c C = S ˙ U ˙ Q ˙ P ˙ S ˙ W
10 cdleme43.f Z = P ˙ Q ˙ C ˙ R ˙ S ˙ W
11 cdleme43.d D = S ˙ X ˙ P ˙ Q ˙ S ˙ W
12 cdleme43.g G = Q ˙ P ˙ D ˙ Z ˙ S ˙ W
13 cdleme43.e E = D ˙ U ˙ Q ˙ P ˙ D ˙ W
14 cdleme43.v V = Z ˙ S ˙ W
15 cdleme43.y Y = R ˙ D ˙ W
16 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q K HL
17 simp12l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P A
18 simp13l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Q A
19 3 5 hlatjcom K HL P A Q A P ˙ Q = Q ˙ P
20 16 17 18 19 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P ˙ Q = Q ˙ P
21 20 oveq1d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P ˙ Q ˙ W = Q ˙ P ˙ W
22 21 7 8 3eqtr4g K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q U = X
23 22 oveq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q D ˙ U = D ˙ X
24 23 oveq1d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q D ˙ U ˙ Q ˙ P ˙ D ˙ W = D ˙ X ˙ Q ˙ P ˙ D ˙ W
25 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q K HL W H
26 simp13 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Q A ¬ Q ˙ W
27 simp12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P A ¬ P ˙ W
28 simp21 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P Q
29 28 necomd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Q P
30 simp23 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q S A ¬ S ˙ W
31 simp3r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q ¬ S ˙ P ˙ Q
32 20 breq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q S ˙ P ˙ Q S ˙ Q ˙ P
33 31 32 mtbid K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q ¬ S ˙ Q ˙ P
34 2 3 4 5 6 8 11 cdleme35g K HL W H Q A ¬ Q ˙ W P A ¬ P ˙ W Q P S A ¬ S ˙ W ¬ S ˙ Q ˙ P D ˙ X ˙ Q ˙ P ˙ D ˙ W = S
35 25 26 27 29 30 33 34 syl321anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q D ˙ X ˙ Q ˙ P ˙ D ˙ W = S
36 24 35 eqtrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q D ˙ U ˙ Q ˙ P ˙ D ˙ W = S
37 13 36 syl5eq K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q E = S
38 37 oveq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Z ˙ E = Z ˙ S
39 38 eqcomd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Z ˙ S = Z ˙ E