Metamath Proof Explorer


Theorem dihmeetALTN

Description: Isomorphism H of a lattice meet. This version does not depend on the atomisticity of the constructed vector space. TODO: Delete? (Contributed by NM, 7-Apr-2014) (New usage is discouraged.)

Ref Expression
Hypotheses dihmeetALT.b B = Base K
dihmeetALT.m ˙ = meet K
dihmeetALT.h H = LHyp K
dihmeetALT.i I = DIsoH K W
Assertion dihmeetALTN K HL W H X B Y B I X ˙ Y = I X I Y

Proof

Step Hyp Ref Expression
1 dihmeetALT.b B = Base K
2 dihmeetALT.m ˙ = meet K
3 dihmeetALT.h H = LHyp K
4 dihmeetALT.i I = DIsoH K W
5 simpl1l K HL W H X B Y B X K W K HL
6 5 hllatd K HL W H X B Y B X K W K Lat
7 simpl2 K HL W H X B Y B X K W X B
8 simpl3 K HL W H X B Y B X K W Y B
9 1 2 latmcom K Lat X B Y B X ˙ Y = Y ˙ X
10 6 7 8 9 syl3anc K HL W H X B Y B X K W X ˙ Y = Y ˙ X
11 10 fveq2d K HL W H X B Y B X K W I X ˙ Y = I Y ˙ X
12 simpl1 K HL W H X B Y B X K W K HL W H
13 simpr K HL W H X B Y B X K W X K W
14 eqid K = K
15 1 14 2 3 4 dihmeetbN K HL W H Y B X B X K W I Y ˙ X = I Y I X
16 12 8 7 13 15 syl112anc K HL W H X B Y B X K W I Y ˙ X = I Y I X
17 incom I Y I X = I X I Y
18 16 17 eqtrdi K HL W H X B Y B X K W I Y ˙ X = I X I Y
19 11 18 eqtrd K HL W H X B Y B X K W I X ˙ Y = I X I Y
20 simpll1 K HL W H X B Y B ¬ X K W Y K W K HL W H
21 simpll2 K HL W H X B Y B ¬ X K W Y K W X B
22 simpll3 K HL W H X B Y B ¬ X K W Y K W Y B
23 simpr K HL W H X B Y B ¬ X K W Y K W Y K W
24 1 14 2 3 4 dihmeetbN K HL W H X B Y B Y K W I X ˙ Y = I X I Y
25 20 21 22 23 24 syl112anc K HL W H X B Y B ¬ X K W Y K W I X ˙ Y = I X I Y
26 25 adantlr K HL W H X B Y B ¬ X K W X ˙ Y K W Y K W I X ˙ Y = I X I Y
27 simp1l1 K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W K HL W H
28 simp1l2 K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W X B
29 simp1r K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W ¬ X K W
30 simp1l3 K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W Y B
31 simp3 K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W ¬ Y K W
32 30 31 jca K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W Y B ¬ Y K W
33 simp2 K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W X ˙ Y K W
34 eqid join K = join K
35 eqid Atoms K = Atoms K
36 eqid DVecH K W = DVecH K W
37 eqid LSSum DVecH K W = LSSum DVecH K W
38 1 14 3 34 2 35 36 37 4 dihmeetlem20N K HL W H X B ¬ X K W Y B ¬ Y K W X ˙ Y K W I X ˙ Y = I X I Y
39 27 28 29 32 33 38 syl122anc K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W I X ˙ Y = I X I Y
40 39 3expa K HL W H X B Y B ¬ X K W X ˙ Y K W ¬ Y K W I X ˙ Y = I X I Y
41 26 40 pm2.61dan K HL W H X B Y B ¬ X K W X ˙ Y K W I X ˙ Y = I X I Y
42 simpll1 K HL W H X B Y B ¬ X K W ¬ X ˙ Y K W K HL W H
43 simpll2 K HL W H X B Y B ¬ X K W ¬ X ˙ Y K W X B
44 simpll3 K HL W H X B Y B ¬ X K W ¬ X ˙ Y K W Y B
45 simpr K HL W H X B Y B ¬ X K W ¬ X ˙ Y K W ¬ X ˙ Y K W
46 1 14 2 3 4 dihmeetcN K HL W H X B Y B ¬ X ˙ Y K W I X ˙ Y = I X I Y
47 42 43 44 45 46 syl121anc K HL W H X B Y B ¬ X K W ¬ X ˙ Y K W I X ˙ Y = I X I Y
48 41 47 pm2.61dan K HL W H X B Y B ¬ X K W I X ˙ Y = I X I Y
49 19 48 pm2.61dan K HL W H X B Y B I X ˙ Y = I X I Y