Metamath Proof Explorer


Theorem hsupval

Description: Value of supremum of set of subsets of Hilbert space. For an alternate version of the value, see hsupval2 . (Contributed by NM, 9-Dec-2003) (Revised by Mario Carneiro, 23-Dec-2013) (New usage is discouraged.)

Ref Expression
Assertion hsupval ( 𝐴 ⊆ 𝒫 ℋ → ( 𝐴 ) = ( ⊥ ‘ ( ⊥ ‘ 𝐴 ) ) )

Proof

Step Hyp Ref Expression
1 ax-hilex ℋ ∈ V
2 1 pwex 𝒫 ℋ ∈ V
3 2 elpw2 ( 𝐴 ∈ 𝒫 𝒫 ℋ ↔ 𝐴 ⊆ 𝒫 ℋ )
4 unieq ( 𝑥 = 𝐴 𝑥 = 𝐴 )
5 4 fveq2d ( 𝑥 = 𝐴 → ( ⊥ ‘ 𝑥 ) = ( ⊥ ‘ 𝐴 ) )
6 5 fveq2d ( 𝑥 = 𝐴 → ( ⊥ ‘ ( ⊥ ‘ 𝑥 ) ) = ( ⊥ ‘ ( ⊥ ‘ 𝐴 ) ) )
7 df-chsup = ( 𝑥 ∈ 𝒫 𝒫 ℋ ↦ ( ⊥ ‘ ( ⊥ ‘ 𝑥 ) ) )
8 fvex ( ⊥ ‘ ( ⊥ ‘ 𝐴 ) ) ∈ V
9 6 7 8 fvmpt ( 𝐴 ∈ 𝒫 𝒫 ℋ → ( 𝐴 ) = ( ⊥ ‘ ( ⊥ ‘ 𝐴 ) ) )
10 3 9 sylbir ( 𝐴 ⊆ 𝒫 ℋ → ( 𝐴 ) = ( ⊥ ‘ ( ⊥ ‘ 𝐴 ) ) )