Metamath Proof Explorer


Theorem osumcllem7N

Description: Lemma for osumclN . (Contributed by NM, 24-Mar-2012) (New usage is discouraged.)

Ref Expression
Hypotheses osumcllem.l ˙ = K
osumcllem.j ˙ = join K
osumcllem.a A = Atoms K
osumcllem.p + ˙ = + 𝑃 K
osumcllem.o ˙ = 𝑃 K
osumcllem.c C = PSubCl K
osumcllem.m M = X + ˙ p
osumcllem.u U = ˙ ˙ X + ˙ Y
Assertion osumcllem7N K HL X A Y A X ˙ Y X p A q Y M p X + ˙ Y

Proof

Step Hyp Ref Expression
1 osumcllem.l ˙ = K
2 osumcllem.j ˙ = join K
3 osumcllem.a A = Atoms K
4 osumcllem.p + ˙ = + 𝑃 K
5 osumcllem.o ˙ = 𝑃 K
6 osumcllem.c C = PSubCl K
7 osumcllem.m M = X + ˙ p
8 osumcllem.u U = ˙ ˙ X + ˙ Y
9 simp11 K HL X A Y A X ˙ Y X p A q Y M K HL
10 9 hllatd K HL X A Y A X ˙ Y X p A q Y M K Lat
11 simp12 K HL X A Y A X ˙ Y X p A q Y M X A
12 simp23 K HL X A Y A X ˙ Y X p A q Y M p A
13 simp22 K HL X A Y A X ˙ Y X p A q Y M X
14 inss2 Y M M
15 14 sseli q Y M q M
16 15 3ad2ant3 K HL X A Y A X ˙ Y X p A q Y M q M
17 16 7 eleqtrdi K HL X A Y A X ˙ Y X p A q Y M q X + ˙ p
18 1 2 3 4 elpaddatiN K Lat X A p A X q X + ˙ p r X q ˙ r ˙ p
19 10 11 12 13 17 18 syl32anc K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p
20 simp11 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p K HL X A Y A
21 simp121 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p X ˙ Y
22 simp123 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p p A
23 simp2 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p r X
24 inss1 Y M Y
25 simp13 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p q Y M
26 24 25 sseldi K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p q Y
27 simp3 K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p q ˙ r ˙ p
28 1 2 3 4 5 6 7 8 osumcllem6N K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p p X + ˙ Y
29 20 21 22 23 26 27 28 syl123anc K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p p X + ˙ Y
30 29 rexlimdv3a K HL X A Y A X ˙ Y X p A q Y M r X q ˙ r ˙ p p X + ˙ Y
31 19 30 mpd K HL X A Y A X ˙ Y X p A q Y M p X + ˙ Y