Metamath Proof Explorer


Theorem lsatlspsn

Description: The span of a nonzero singleton is an atom. (Contributed by NM, 16-Jan-2015)

Ref Expression
Hypotheses lsatset.v V=BaseW
lsatset.n N=LSpanW
lsatset.z 0˙=0W
lsatset.a A=LSAtomsW
lsatlspsn.w φWLMod
lsatlspsn.x φXV0˙
Assertion lsatlspsn φNXA

Proof

Step Hyp Ref Expression
1 lsatset.v V=BaseW
2 lsatset.n N=LSpanW
3 lsatset.z 0˙=0W
4 lsatset.a A=LSAtomsW
5 lsatlspsn.w φWLMod
6 lsatlspsn.x φXV0˙
7 eqid NX=NX
8 sneq v=Xv=X
9 8 fveq2d v=XNv=NX
10 9 rspceeqv XV0˙NX=NXvV0˙NX=Nv
11 6 7 10 sylancl φvV0˙NX=Nv
12 1 2 3 4 islsat WLModNXAvV0˙NX=Nv
13 5 12 syl φNXAvV0˙NX=Nv
14 11 13 mpbird φNXA