Theorem shatomici

Description: The lattice of Hilbert subspaces is atomic, i.e. any nonzero element is greater than or equal to some atom. Part of proof of Theorem 16.9 of MaedaMaeda p. 70. (Contributed by NM, 24-Nov-2004) (New usage is discouraged.)

	Ref	Expression
Hypothesis	shatomic.1	|- A e. SH
Assertion	shatomici	|- ( A =/= 0H -> E. x e. HAtoms x C_ A )

Proof

Step	Hyp	Ref	Expression
1		shatomic.1	|- A e. SH
2	1	shne0i	|- ( A =/= 0H <-> E. y e. A y =/= 0h )
3	1	sheli	|- ( y e. A -> y e. ~H )
4		h1da	|- ( ( y e. ~H /\ y =/= 0h ) -> ( _|_ ` ( _|_ ` { y } ) ) e. HAtoms )
5	3 4	sylan	|- ( ( y e. A /\ y =/= 0h ) -> ( _|_ ` ( _|_ ` { y } ) ) e. HAtoms )
6		sh1dle	|- ( ( A e. SH /\ y e. A ) -> ( _|_ ` ( _|_ ` { y } ) ) C_ A )
7	1 6	mpan	|- ( y e. A -> ( _|_ ` ( _|_ ` { y } ) ) C_ A )
8	7	adantr	|- ( ( y e. A /\ y =/= 0h ) -> ( _|_ ` ( _|_ ` { y } ) ) C_ A )
9		sseq1	|- ( x = ( _|_ ` ( _|_ ` { y } ) ) -> ( x C_ A <-> ( _|_ ` ( _|_ ` { y } ) ) C_ A ) )
10	9	rspcev	|- ( ( ( _|_ ` ( _|_ ` { y } ) ) e. HAtoms /\ ( _|_ ` ( _|_ ` { y } ) ) C_ A ) -> E. x e. HAtoms x C_ A )
11	5 8 10	syl2anc	|- ( ( y e. A /\ y =/= 0h ) -> E. x e. HAtoms x C_ A )
12	11	rexlimiva	|- ( E. y e. A y =/= 0h -> E. x e. HAtoms x C_ A )
13	2 12	sylbi	|- ( A =/= 0H -> E. x e. HAtoms x C_ A )