Metamath Proof Explorer


Theorem lhpexle2lem

Description: Lemma for lhpexle2 . (Contributed by NM, 19-Jun-2013)

Ref Expression
Hypotheses lhpex1.l ˙ = K
lhpex1.a A = Atoms K
lhpex1.h H = LHyp K
Assertion lhpexle2lem K HL W H X A X ˙ W Y A Y ˙ W p A p ˙ W p X p Y

Proof

Step Hyp Ref Expression
1 lhpex1.l ˙ = K
2 lhpex1.a A = Atoms K
3 lhpex1.h H = LHyp K
4 simpl1 K HL W H X A X ˙ W Y A Y ˙ W X = Y K HL W H
5 1 2 3 lhpexle1 K HL W H p A p ˙ W p X
6 4 5 syl K HL W H X A X ˙ W Y A Y ˙ W X = Y p A p ˙ W p X
7 simp3l K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X p ˙ W
8 simp3r K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X p X
9 simp2 K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X X = Y
10 8 9 neeqtrd K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X p Y
11 7 8 10 3jca K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X p ˙ W p X p Y
12 11 3expia K HL W H X A X ˙ W Y A Y ˙ W X = Y p ˙ W p X p ˙ W p X p Y
13 12 reximdv K HL W H X A X ˙ W Y A Y ˙ W X = Y p A p ˙ W p X p A p ˙ W p X p Y
14 6 13 mpd K HL W H X A X ˙ W Y A Y ˙ W X = Y p A p ˙ W p X p Y
15 simpl1l K HL W H X A X ˙ W Y A Y ˙ W X Y K HL
16 simpl2l K HL W H X A X ˙ W Y A Y ˙ W X Y X A
17 simpl3l K HL W H X A X ˙ W Y A Y ˙ W X Y Y A
18 simpr K HL W H X A X ˙ W Y A Y ˙ W X Y X Y
19 eqid join K = join K
20 1 19 2 hlsupr K HL X A Y A X Y p A p X p Y p ˙ X join K Y
21 15 16 17 18 20 syl31anc K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y
22 eqid Base K = Base K
23 simpl1l K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y K HL
24 23 hllatd K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y K Lat
25 simprlr K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p A
26 22 2 atbase p A p Base K
27 25 26 syl K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p Base K
28 simpl2l K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X A
29 simpl3l K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y Y A
30 22 19 2 hlatjcl K HL X A Y A X join K Y Base K
31 23 28 29 30 syl3anc K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X join K Y Base K
32 simpl1r K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y W H
33 22 3 lhpbase W H W Base K
34 32 33 syl K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y W Base K
35 simprr3 K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p ˙ X join K Y
36 simpl2r K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X ˙ W
37 simpl3r K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y Y ˙ W
38 22 2 atbase X A X Base K
39 28 38 syl K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X Base K
40 22 2 atbase Y A Y Base K
41 29 40 syl K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y Y Base K
42 22 1 19 latjle12 K Lat X Base K Y Base K W Base K X ˙ W Y ˙ W X join K Y ˙ W
43 24 39 41 34 42 syl13anc K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X ˙ W Y ˙ W X join K Y ˙ W
44 36 37 43 mpbi2and K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y X join K Y ˙ W
45 22 1 24 27 31 34 35 44 lattrd K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p ˙ W
46 simprr1 K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p X
47 simprr2 K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p Y
48 45 46 47 3jca K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p ˙ W p X p Y
49 48 exp44 K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p ˙ W p X p Y
50 49 imp31 K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p ˙ W p X p Y
51 50 reximdva K HL W H X A X ˙ W Y A Y ˙ W X Y p A p X p Y p ˙ X join K Y p A p ˙ W p X p Y
52 21 51 mpd K HL W H X A X ˙ W Y A Y ˙ W X Y p A p ˙ W p X p Y
53 14 52 pm2.61dane K HL W H X A X ˙ W Y A Y ˙ W p A p ˙ W p X p Y