Metamath Proof Explorer


Theorem osumcllem1N

Description: Lemma for osumclN . (Contributed by NM, 25-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 osumcllem1N K HL X A Y A p U U M = M

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 3 4 sspadd1 K HL X A Y A X X + ˙ Y
10 9 adantr K HL X A Y A p U X X + ˙ Y
11 simpl1 K HL X A Y A p U K HL
12 3 4 paddssat K HL X A Y A X + ˙ Y A
13 12 adantr K HL X A Y A p U X + ˙ Y A
14 3 5 2polssN K HL X + ˙ Y A X + ˙ Y ˙ ˙ X + ˙ Y
15 11 13 14 syl2anc K HL X A Y A p U X + ˙ Y ˙ ˙ X + ˙ Y
16 15 8 sseqtrrdi K HL X A Y A p U X + ˙ Y U
17 10 16 sstrd K HL X A Y A p U X U
18 simpr K HL X A Y A p U p U
19 18 snssd K HL X A Y A p U p U
20 simpl2 K HL X A Y A p U X A
21 3 5 polssatN K HL X + ˙ Y A ˙ X + ˙ Y A
22 11 13 21 syl2anc K HL X A Y A p U ˙ X + ˙ Y A
23 3 5 polssatN K HL ˙ X + ˙ Y A ˙ ˙ X + ˙ Y A
24 11 22 23 syl2anc K HL X A Y A p U ˙ ˙ X + ˙ Y A
25 8 24 eqsstrid K HL X A Y A p U U A
26 19 25 sstrd K HL X A Y A p U p A
27 eqid PSubSp K = PSubSp K
28 3 27 5 polsubN K HL ˙ X + ˙ Y A ˙ ˙ X + ˙ Y PSubSp K
29 11 22 28 syl2anc K HL X A Y A p U ˙ ˙ X + ˙ Y PSubSp K
30 8 29 eqeltrid K HL X A Y A p U U PSubSp K
31 3 27 4 paddss K HL X A p A U PSubSp K X U p U X + ˙ p U
32 11 20 26 30 31 syl13anc K HL X A Y A p U X U p U X + ˙ p U
33 17 19 32 mpbi2and K HL X A Y A p U X + ˙ p U
34 7 33 eqsstrid K HL X A Y A p U M U
35 sseqin2 M U U M = M
36 34 35 sylib K HL X A Y A p U U M = M