Metamath Proof Explorer


Theorem dihmeetlem18N

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
dihmeetlem18.z 0 ˙ = 0 U
Assertion dihmeetlem18N K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W I Y I 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 dihmeetlem18.z 0 ˙ = 0 U
11 simpl1 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W K HL W H
12 simpl2 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W X B ¬ X ˙ W
13 simpr1 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W p A ¬ p ˙ W
14 simpl3 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W Y B
15 simpr33 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W X ˙ Y ˙ W
16 simpr31 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W p ˙ X
17 eqid 0. K = 0. K
18 1 2 3 4 5 6 7 8 9 17 dihmeetlem17N K HL W H X B ¬ X ˙ W p A ¬ p ˙ W Y B X ˙ Y ˙ W p ˙ X Y ˙ p = 0. K
19 11 12 13 14 15 16 18 syl33anc K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W Y ˙ p = 0. K
20 19 fveq2d K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W I Y ˙ p = I 0. K
21 simpr2 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W r A ¬ r ˙ W
22 simpr32 K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W r ˙ Y
23 simpl1l K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W K HL
24 hlop K HL K OP
25 23 24 syl K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W K OP
26 simpl1r K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W W H
27 1 3 lhpbase W H W B
28 26 27 syl K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W W B
29 1 2 17 op0le K OP W B 0. K ˙ W
30 25 28 29 syl2anc K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W 0. K ˙ W
31 19 30 eqbrtrd K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W Y ˙ p ˙ W
32 1 2 3 4 5 6 7 8 9 dihmeetlem16N K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W I Y ˙ p = I Y I p
33 11 14 13 21 22 31 32 syl33anc K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W I Y ˙ p = I Y I p
34 17 3 9 7 10 dih0 K HL W H I 0. K = 0 ˙
35 11 34 syl K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W I 0. K = 0 ˙
36 20 33 35 3eqtr3d K HL W H X B ¬ X ˙ W Y B p A ¬ p ˙ W r A ¬ r ˙ W p ˙ X r ˙ Y X ˙ Y ˙ W I Y I p = 0 ˙