Metamath Proof Explorer


Theorem lcfrlem20

Description: Lemma for lcfr . (Contributed by NM, 11-Mar-2015)

Ref Expression
Hypotheses lcfrlem17.h H = LHyp K
lcfrlem17.o ˙ = ocH K W
lcfrlem17.u U = DVecH K W
lcfrlem17.v V = Base U
lcfrlem17.p + ˙ = + U
lcfrlem17.z 0 ˙ = 0 U
lcfrlem17.n N = LSpan U
lcfrlem17.a A = LSAtoms U
lcfrlem17.k φ K HL W H
lcfrlem17.x φ X V 0 ˙
lcfrlem17.y φ Y V 0 ˙
lcfrlem17.ne φ N X N Y
lcfrlem20.e φ ¬ X ˙ X + ˙ Y
Assertion lcfrlem20 φ N X Y ˙ X + ˙ Y A

Proof

Step Hyp Ref Expression
1 lcfrlem17.h H = LHyp K
2 lcfrlem17.o ˙ = ocH K W
3 lcfrlem17.u U = DVecH K W
4 lcfrlem17.v V = Base U
5 lcfrlem17.p + ˙ = + U
6 lcfrlem17.z 0 ˙ = 0 U
7 lcfrlem17.n N = LSpan U
8 lcfrlem17.a A = LSAtoms U
9 lcfrlem17.k φ K HL W H
10 lcfrlem17.x φ X V 0 ˙
11 lcfrlem17.y φ Y V 0 ˙
12 lcfrlem17.ne φ N X N Y
13 lcfrlem20.e φ ¬ X ˙ X + ˙ Y
14 eqid LSSum U = LSSum U
15 1 3 9 dvhlmod φ U LMod
16 10 eldifad φ X V
17 11 eldifad φ Y V
18 4 7 14 15 16 17 lsmpr φ N X Y = N X LSSum U N Y
19 18 ineq1d φ N X Y ˙ X + ˙ Y = N X LSSum U N Y ˙ X + ˙ Y
20 eqid LSubSp U = LSubSp U
21 eqid LSHyp U = LSHyp U
22 1 3 9 dvhlvec φ U LVec
23 1 2 3 4 5 6 7 8 9 10 11 12 lcfrlem17 φ X + ˙ Y V 0 ˙
24 1 2 3 4 6 21 9 23 dochsnshp φ ˙ X + ˙ Y LSHyp U
25 4 7 6 8 15 10 lsatlspsn φ N X A
26 4 7 6 8 15 11 lsatlspsn φ N Y A
27 4 5 lmodvacl U LMod X V Y V X + ˙ Y V
28 15 16 17 27 syl3anc φ X + ˙ Y V
29 28 snssd φ X + ˙ Y V
30 1 3 4 20 2 dochlss K HL W H X + ˙ Y V ˙ X + ˙ Y LSubSp U
31 9 29 30 syl2anc φ ˙ X + ˙ Y LSubSp U
32 4 20 7 15 31 16 lspsnel5 φ X ˙ X + ˙ Y N X ˙ X + ˙ Y
33 13 32 mtbid φ ¬ N X ˙ X + ˙ Y
34 20 14 21 8 22 24 25 26 12 33 lshpat φ N X LSSum U N Y ˙ X + ˙ Y A
35 19 34 eqeltrd φ N X Y ˙ X + ˙ Y A