Metamath Proof Explorer


Theorem dihmeetlem15N

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
dihmeetlem15.z 0 ˙ = 0 U
Assertion dihmeetlem15N K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W I r 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 dihmeetlem15.z 0 ˙ = 0 U
11 simpl1 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W K HL W H
12 simpr1 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r A ¬ r ˙ W
13 simpl3 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W p A ¬ p ˙ W
14 simpl3r K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W ¬ p ˙ W
15 simp3 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p r = p
16 simp22 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p r ˙ Y
17 15 16 eqbrtrrd K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p ˙ Y
18 simp11l K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p K HL
19 18 hllatd K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p K Lat
20 simp13l K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p A
21 1 6 atbase p A p B
22 20 21 syl K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p B
23 simp12 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p Y B
24 1 2 5 latleeqm2 K Lat p B Y B p ˙ Y Y ˙ p = p
25 19 22 23 24 syl3anc K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p ˙ Y Y ˙ p = p
26 17 25 mpbid K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p Y ˙ p = p
27 simp23 K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p Y ˙ p ˙ W
28 26 27 eqbrtrrd K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p ˙ W
29 28 3expia K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r = p p ˙ W
30 29 necon3bd K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W ¬ p ˙ W r p
31 14 30 mpd K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W r p
32 eqid oc K W = oc K W
33 eqid LTrn K W = LTrn K W
34 eqid TEndo K W = TEndo K W
35 eqid h LTrn K W I B = h LTrn K W I B
36 eqid ι h LTrn K W | h oc K W = r = ι h LTrn K W | h oc K W = r
37 eqid ι h LTrn K W | h oc K W = p = ι h LTrn K W | h oc K W = p
38 1 2 4 6 3 32 33 34 35 9 7 10 36 37 dihmeetlem13N K HL W H r A ¬ r ˙ W p A ¬ p ˙ W r p I r I p = 0 ˙
39 11 12 13 31 38 syl121anc K HL W H Y B p A ¬ p ˙ W r A ¬ r ˙ W r ˙ Y Y ˙ p ˙ W I r I p = 0 ˙