hhsssh - Hilbert Space Explorer

	Hilbert Space Explorer		< Previous Next > Nearby theorems
Mirrors > Home > HSE Home > Th. List > hhsssh		Structured version Visualization version GIF version

Theorem hhsssh 31344

Description: The predicate "𝐻 is a subspace of Hilbert space." (Contributed by NM, 25-Mar-2008.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
hhsst.1	⊢ 𝑈 = ⟨⟨ +_ℎ , ·_ℎ ⟩, norm_ℎ⟩
hhsst.2	⊢ 𝑊 = ⟨⟨( +_ℎ ↾ (𝐻 × 𝐻)), ( ·_ℎ ↾ (ℂ × 𝐻))⟩, (norm_ℎ ↾ 𝐻)⟩

**Assertion**
Ref	Expression
hhsssh	⊢ (𝐻 ∈ S_ℋ ↔ (𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ))

**Proof of Theorem hhsssh**
Step	Hyp	Ref	Expression
1		hhsst.1	. . . 4 ⊢ 𝑈 = ⟨⟨ +_ℎ , ·_ℎ ⟩, norm_ℎ⟩
2		hhsst.2	. . . 4 ⊢ 𝑊 = ⟨⟨( +_ℎ ↾ (𝐻 × 𝐻)), ( ·_ℎ ↾ (ℂ × 𝐻))⟩, (norm_ℎ ↾ 𝐻)⟩
3	1, 2	hhsst 31341	. . 3 ⊢ (𝐻 ∈ S_ℋ → 𝑊 ∈ (SubSp‘𝑈))
4		shss 31285	. . 3 ⊢ (𝐻 ∈ S_ℋ → 𝐻 ⊆ ℋ)
5	3, 4	jca 511	. 2 ⊢ (𝐻 ∈ S_ℋ → (𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ))
6		eleq1 2824	. . 3 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (𝐻 ∈ S_ℋ ↔ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ∈ S_ℋ ))
7		eqid 2736	. . . 4 ⊢ ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ = ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩
8		xpeq1 5638	. . . . . . . . . . . . 13 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (𝐻 × 𝐻) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × 𝐻))
9		xpeq2 5645	. . . . . . . . . . . . 13 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × 𝐻) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
10	8, 9	eqtrd 2771	. . . . . . . . . . . 12 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (𝐻 × 𝐻) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
11	10	reseq2d 5938	. . . . . . . . . . 11 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( +_ℎ ↾ (𝐻 × 𝐻)) = ( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))))
12		xpeq2 5645	. . . . . . . . . . . 12 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (ℂ × 𝐻) = (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
13	12	reseq2d 5938	. . . . . . . . . . 11 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( ·_ℎ ↾ (ℂ × 𝐻)) = ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))))
14	11, 13	opeq12d 4837	. . . . . . . . . 10 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ⟨( +_ℎ ↾ (𝐻 × 𝐻)), ( ·_ℎ ↾ (ℂ × 𝐻))⟩ = ⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩)
15		reseq2 5933	. . . . . . . . . 10 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (norm_ℎ ↾ 𝐻) = (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
16	14, 15	opeq12d 4837	. . . . . . . . 9 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ⟨⟨( +_ℎ ↾ (𝐻 × 𝐻)), ( ·_ℎ ↾ (ℂ × 𝐻))⟩, (norm_ℎ ↾ 𝐻)⟩ = ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩)
17	2, 16	eqtrid 2783	. . . . . . . 8 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → 𝑊 = ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩)
18	17	eleq1d 2821	. . . . . . 7 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (𝑊 ∈ (SubSp‘𝑈) ↔ ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈)))
19		sseq1 3959	. . . . . . 7 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (𝐻 ⊆ ℋ ↔ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ))
20	18, 19	anbi12d 632	. . . . . 6 ⊢ (𝐻 = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ) ↔ (⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈) ∧ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ)))
21		xpeq1 5638	. . . . . . . . . . . 12 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( ℋ × ℋ) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × ℋ))
22		xpeq2 5645	. . . . . . . . . . . 12 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × ℋ) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
23	21, 22	eqtrd 2771	. . . . . . . . . . 11 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( ℋ × ℋ) = (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
24	23	reseq2d 5938	. . . . . . . . . 10 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( +_ℎ ↾ ( ℋ × ℋ)) = ( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))))
25		xpeq2 5645	. . . . . . . . . . 11 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (ℂ × ℋ) = (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
26	25	reseq2d 5938	. . . . . . . . . 10 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( ·_ℎ ↾ (ℂ × ℋ)) = ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))))
27	24, 26	opeq12d 4837	. . . . . . . . 9 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩ = ⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩)
28		reseq2 5933	. . . . . . . . 9 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (norm_ℎ ↾ ℋ) = (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))
29	27, 28	opeq12d 4837	. . . . . . . 8 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ = ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩)
30	29	eleq1d 2821	. . . . . . 7 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → (⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ ∈ (SubSp‘𝑈) ↔ ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈)))
31		sseq1 3959	. . . . . . 7 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ( ℋ ⊆ ℋ ↔ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ))
32	30, 31	anbi12d 632	. . . . . 6 ⊢ ( ℋ = if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) → ((⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ ∈ (SubSp‘𝑈) ∧ ℋ ⊆ ℋ) ↔ (⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈) ∧ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ)))
33		ax-hfvadd 31075	. . . . . . . . . . . 12 ⊢ +_ℎ :( ℋ × ℋ)⟶ ℋ
34		ffn 6662	. . . . . . . . . . . 12 ⊢ ( +_ℎ :( ℋ × ℋ)⟶ ℋ → +_ℎ Fn ( ℋ × ℋ))
35		fnresdm 6611	. . . . . . . . . . . 12 ⊢ ( +_ℎ Fn ( ℋ × ℋ) → ( +_ℎ ↾ ( ℋ × ℋ)) = +_ℎ )
36	33, 34, 35	mp2b 10	. . . . . . . . . . 11 ⊢ ( +_ℎ ↾ ( ℋ × ℋ)) = +_ℎ
37		ax-hfvmul 31080	. . . . . . . . . . . 12 ⊢ ·_ℎ :(ℂ × ℋ)⟶ ℋ
38		ffn 6662	. . . . . . . . . . . 12 ⊢ ( ·_ℎ :(ℂ × ℋ)⟶ ℋ → ·_ℎ Fn (ℂ × ℋ))
39		fnresdm 6611	. . . . . . . . . . . 12 ⊢ ( ·_ℎ Fn (ℂ × ℋ) → ( ·_ℎ ↾ (ℂ × ℋ)) = ·_ℎ )
40	37, 38, 39	mp2b 10	. . . . . . . . . . 11 ⊢ ( ·_ℎ ↾ (ℂ × ℋ)) = ·_ℎ
41	36, 40	opeq12i 4834	. . . . . . . . . 10 ⊢ ⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩ = ⟨ +_ℎ , ·_ℎ ⟩
42		normf 31198	. . . . . . . . . . 11 ⊢ norm_ℎ: ℋ⟶ℝ
43		ffn 6662	. . . . . . . . . . 11 ⊢ (norm_ℎ: ℋ⟶ℝ → norm_ℎ Fn ℋ)
44		fnresdm 6611	. . . . . . . . . . 11 ⊢ (norm_ℎ Fn ℋ → (norm_ℎ ↾ ℋ) = norm_ℎ)
45	42, 43, 44	mp2b 10	. . . . . . . . . 10 ⊢ (norm_ℎ ↾ ℋ) = norm_ℎ
46	41, 45	opeq12i 4834	. . . . . . . . 9 ⊢ ⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ = ⟨⟨ +_ℎ , ·_ℎ ⟩, norm_ℎ⟩
47	46, 1	eqtr4i 2762	. . . . . . . 8 ⊢ ⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ = 𝑈
48	1	hhnv 31240	. . . . . . . . 9 ⊢ 𝑈 ∈ NrmCVec
49		eqid 2736	. . . . . . . . . 10 ⊢ (SubSp‘𝑈) = (SubSp‘𝑈)
50	49	sspid 30800	. . . . . . . . 9 ⊢ (𝑈 ∈ NrmCVec → 𝑈 ∈ (SubSp‘𝑈))
51	48, 50	ax-mp 5	. . . . . . . 8 ⊢ 𝑈 ∈ (SubSp‘𝑈)
52	47, 51	eqeltri 2832	. . . . . . 7 ⊢ ⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ ∈ (SubSp‘𝑈)
53		ssid 3956	. . . . . . 7 ⊢ ℋ ⊆ ℋ
54	52, 53	pm3.2i 470	. . . . . 6 ⊢ (⟨⟨( +_ℎ ↾ ( ℋ × ℋ)), ( ·_ℎ ↾ (ℂ × ℋ))⟩, (norm_ℎ ↾ ℋ)⟩ ∈ (SubSp‘𝑈) ∧ ℋ ⊆ ℋ)
55	20, 32, 54	elimhyp 4545	. . . . 5 ⊢ (⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈) ∧ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ)
56	55	simpli 483	. . . 4 ⊢ ⟨⟨( +_ℎ ↾ (if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))), ( ·_ℎ ↾ (ℂ × if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ)))⟩, (norm_ℎ ↾ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ))⟩ ∈ (SubSp‘𝑈)
57	55	simpri 485	. . . 4 ⊢ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ⊆ ℋ
58	1, 7, 56, 57	hhshsslem2 31343	. . 3 ⊢ if((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ), 𝐻, ℋ) ∈ S_ℋ
59	6, 58	dedth 4538	. 2 ⊢ ((𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ) → 𝐻 ∈ S_ℋ )
60	5, 59	impbii 209	1 ⊢ (𝐻 ∈ S_ℋ ↔ (𝑊 ∈ (SubSp‘𝑈) ∧ 𝐻 ⊆ ℋ))

Colors of variables: wff setvar class

Syntax hints: ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2113 ⊆ wss 3901 ifcif 4479 ⟨cop 4586 × cxp 5622 ↾ cres 5626 Fn wfn 6487 ⟶wf 6488 ‘cfv 6492 ℂcc 11024 ℝcr 11025 NrmCVeccnv 30659 SubSpcss 30796 ℋchba 30994 +_ℎ cva 30995 ·_ℎ csm 30996 norm_ℎcno 30998 S_ℋ csh 31003

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-cnex 11082 ax-resscn 11083 ax-1cn 11084 ax-icn 11085 ax-addcl 11086 ax-addrcl 11087 ax-mulcl 11088 ax-mulrcl 11089 ax-mulcom 11090 ax-addass 11091 ax-mulass 11092 ax-distr 11093 ax-i2m1 11094 ax-1ne0 11095 ax-1rid 11096 ax-rnegex 11097 ax-rrecex 11098 ax-cnre 11099 ax-pre-lttri 11100 ax-pre-lttrn 11101 ax-pre-ltadd 11102 ax-pre-mulgt0 11103 ax-pre-sup 11104 ax-addf 11105 ax-mulf 11106 ax-hilex 31074 ax-hfvadd 31075 ax-hvcom 31076 ax-hvass 31077 ax-hv0cl 31078 ax-hvaddid 31079 ax-hfvmul 31080 ax-hvmulid 31081 ax-hvmulass 31082 ax-hvdistr1 31083 ax-hvdistr2 31084 ax-hvmul0 31085 ax-hfi 31154 ax-his1 31157 ax-his2 31158 ax-his3 31159 ax-his4 31160

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-pss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-op 4587 df-uni 4864 df-iun 4948 df-br 5099 df-opab 5161 df-mpt 5180 df-tr 5206 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-om 7809 df-1st 7933 df-2nd 7934 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-er 8635 df-map 8765 df-pm 8766 df-en 8884 df-dom 8885 df-sdom 8886 df-sup 9345 df-inf 9346 df-pnf 11168 df-mnf 11169 df-xr 11170 df-ltxr 11171 df-le 11172 df-sub 11366 df-neg 11367 df-div 11795 df-nn 12146 df-2 12208 df-3 12209 df-4 12210 df-n0 12402 df-z 12489 df-uz 12752 df-q 12862 df-rp 12906 df-xneg 13026 df-xadd 13027 df-xmul 13028 df-icc 13268 df-seq 13925 df-exp 13985 df-cj 15022 df-re 15023 df-im 15024 df-sqrt 15158 df-abs 15159 df-topgen 17363 df-psmet 21301 df-xmet 21302 df-met 21303 df-bl 21304 df-mopn 21305 df-top 22838 df-topon 22855 df-bases 22890 df-lm 23173 df-haus 23259 df-grpo 30568 df-gid 30569 df-ginv 30570 df-gdiv 30571 df-ablo 30620 df-vc 30634 df-nv 30667 df-va 30670 df-ba 30671 df-sm 30672 df-0v 30673 df-vs 30674 df-nmcv 30675 df-ims 30676 df-ssp 30797 df-hnorm 31043 df-hba 31044 df-hvsub 31046 df-hlim 31047 df-sh 31282 df-ch 31296 df-ch0 31328

This theorem is referenced by: hhsssh2 31345

W3C validator