Metamath Proof Explorer


Theorem osumcllem6N

Description: Lemma for osumclN . Use atom exchange hlatexch1 to swap p and q . (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 osumcllem6N K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p 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 p A r X q Y q ˙ r ˙ p K HL
10 simp12 K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p X A
11 simp13 K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p Y A
12 simp2r K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p p A
13 simp31 K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p r X
14 simp32 K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p q Y
15 11 14 sseldd K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p q A
16 10 13 sseldd K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p r A
17 15 12 16 3jca K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p q A p A r A
18 simp2l K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p X ˙ Y
19 1 2 3 4 5 6 7 8 osumcllem4N K HL Y A X ˙ Y r X q Y q r
20 9 11 18 13 14 19 syl32anc K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p q r
21 9 17 20 3jca K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p K HL q A p A r A q r
22 simp33 K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p q ˙ r ˙ p
23 1 2 3 hlatexch1 K HL q A p A r A q r q ˙ r ˙ p p ˙ r ˙ q
24 21 22 23 sylc K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p p ˙ r ˙ q
25 1 2 3 4 5 6 7 8 osumcllem5N K HL X A Y A p A r X q Y p ˙ r ˙ q p X + ˙ Y
26 9 10 11 12 13 14 24 25 syl313anc K HL X A Y A X ˙ Y p A r X q Y q ˙ r ˙ p p X + ˙ Y