Metamath Proof Explorer


Theorem dihmeetlem3N

Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 30-Mar-2014) (New usage is discouraged.)

Ref Expression
Hypotheses dihmeetlem3.b B = Base K
dihmeetlem3.l ˙ = K
dihmeetlem3.j ˙ = join K
dihmeetlem3.m ˙ = meet K
dihmeetlem3.a A = Atoms K
dihmeetlem3.h H = LHyp K
Assertion dihmeetlem3N K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y Q R

Proof

Step Hyp Ref Expression
1 dihmeetlem3.b B = Base K
2 dihmeetlem3.l ˙ = K
3 dihmeetlem3.j ˙ = join K
4 dihmeetlem3.m ˙ = meet K
5 dihmeetlem3.a A = Atoms K
6 dihmeetlem3.h H = LHyp K
7 simp2lr K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y ¬ Q ˙ W
8 oveq1 Q = R Q ˙ Y ˙ W = R ˙ Y ˙ W
9 simpr R A ¬ R ˙ W R ˙ Y ˙ W = Y R ˙ Y ˙ W = Y
10 8 9 sylan9eqr R A ¬ R ˙ W R ˙ Y ˙ W = Y Q = R Q ˙ Y ˙ W = Y
11 simp11l K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y K HL
12 11 hllatd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y K Lat
13 simp2ll K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q A
14 1 5 atbase Q A Q B
15 13 14 syl K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q B
16 simp12l K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y X B
17 simp12r K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Y B
18 1 4 latmcl K Lat X B Y B X ˙ Y B
19 12 16 17 18 syl3anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y X ˙ Y B
20 simp11r K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y W H
21 1 6 lhpbase W H W B
22 20 21 syl K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y W B
23 1 4 latmcl K Lat X B W B X ˙ W B
24 12 16 22 23 syl3anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y X ˙ W B
25 1 2 3 latlej1 K Lat Q B X ˙ W B Q ˙ Q ˙ X ˙ W
26 12 15 24 25 syl3anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ Q ˙ X ˙ W
27 simp2r K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ X ˙ W = X
28 26 27 breqtrd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ X
29 1 4 latmcl K Lat Y B W B Y ˙ W B
30 12 17 22 29 syl3anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Y ˙ W B
31 1 2 3 latlej1 K Lat Q B Y ˙ W B Q ˙ Q ˙ Y ˙ W
32 12 15 30 31 syl3anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ Q ˙ Y ˙ W
33 simp3 K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ Y ˙ W = Y
34 32 33 breqtrd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ Y
35 1 2 4 latlem12 K Lat Q B X B Y B Q ˙ X Q ˙ Y Q ˙ X ˙ Y
36 12 15 16 17 35 syl13anc K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ X Q ˙ Y Q ˙ X ˙ Y
37 28 34 36 mpbi2and K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ X ˙ Y
38 simp13 K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y X ˙ Y ˙ W
39 1 2 12 15 19 22 37 38 lattrd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ W
40 39 3exp K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X Q ˙ Y ˙ W = Y Q ˙ W
41 10 40 syl7 K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y Q = R Q ˙ W
42 41 exp4a K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y Q = R Q ˙ W
43 42 3imp K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y Q = R Q ˙ W
44 43 necon3bd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y ¬ Q ˙ W Q R
45 7 44 mpd K HL W H X B Y B X ˙ Y ˙ W Q A ¬ Q ˙ W Q ˙ X ˙ W = X R A ¬ R ˙ W R ˙ Y ˙ W = Y Q R