Metamath Proof Explorer


Theorem tmsds

Description: The metric of a constructed metric space. (Contributed by Mario Carneiro, 2-Sep-2015)

Ref Expression
Hypothesis tmsbas.k ⊒ 𝐾 = ( toMetSp β€˜ 𝐷 )
Assertion tmsds ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) β†’ 𝐷 = ( dist β€˜ 𝐾 ) )

Proof

Step Hyp Ref Expression
1 tmsbas.k ⊒ 𝐾 = ( toMetSp β€˜ 𝐷 )
2 eqid ⊒ { ⟨ ( Base β€˜ ndx ) , 𝑋 ⟩ , ⟨ ( dist β€˜ ndx ) , 𝐷 ⟩ } = { ⟨ ( Base β€˜ ndx ) , 𝑋 ⟩ , ⟨ ( dist β€˜ ndx ) , 𝐷 ⟩ }
3 2 1 tmslem ⊒ ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) β†’ ( 𝑋 = ( Base β€˜ 𝐾 ) ∧ 𝐷 = ( dist β€˜ 𝐾 ) ∧ ( MetOpen β€˜ 𝐷 ) = ( TopOpen β€˜ 𝐾 ) ) )
4 3 simp2d ⊒ ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) β†’ 𝐷 = ( dist β€˜ 𝐾 ) )