Metamath Proof Explorer


Theorem dihmeetlem17N

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

Ref Expression
Hypotheses dihmeetlem14.b B = Base K
dihmeetlem14.l ˙ = K
dihmeetlem14.h H = LHyp K
dihmeetlem14.j ˙ = join K
dihmeetlem14.m ˙ = meet K
dihmeetlem14.a A = Atoms K
dihmeetlem14.u U = DVecH K W
dihmeetlem14.s ˙ = LSSum U
dihmeetlem14.i I = DIsoH K W
dihmeetlem17.o 0 ˙ = 0. K
Assertion dihmeetlem17N K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X Y ˙ p = 0 ˙

Proof

Step Hyp Ref Expression
1 dihmeetlem14.b B = Base K
2 dihmeetlem14.l ˙ = K
3 dihmeetlem14.h H = LHyp K
4 dihmeetlem14.j ˙ = join K
5 dihmeetlem14.m ˙ = meet K
6 dihmeetlem14.a A = Atoms K
7 dihmeetlem14.u U = DVecH K W
8 dihmeetlem14.s ˙ = LSSum U
9 dihmeetlem14.i I = DIsoH K W
10 dihmeetlem17.o 0 ˙ = 0. K
11 simpl1l K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X K HL
12 11 hllatd K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X K Lat
13 simpl3l K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p A
14 1 6 atbase p A p B
15 13 14 syl K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p B
16 simpr1 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X Y B
17 1 5 latmcom K Lat p B Y B p ˙ Y = Y ˙ p
18 12 15 16 17 syl3anc K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p ˙ Y = Y ˙ p
19 simpl1 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X K HL W H
20 simpl2 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X X B ¬ X ˙ W
21 simpl3 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p A ¬ p ˙ W
22 simpr2 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X X ˙ Y ˙ W
23 simpr3 K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p ˙ X
24 1 2 4 5 6 3 lhpmcvr4N K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X ¬ p ˙ Y
25 19 20 21 16 22 23 24 syl123anc K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X ¬ p ˙ Y
26 hlatl K HL K AtLat
27 11 26 syl K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X K AtLat
28 1 2 5 10 6 atnle K AtLat p A Y B ¬ p ˙ Y p ˙ Y = 0 ˙
29 27 13 16 28 syl3anc K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X ¬ p ˙ Y p ˙ Y = 0 ˙
30 25 29 mpbid K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X p ˙ Y = 0 ˙
31 18 30 eqtr3d K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X Y ˙ p = 0 ˙