Metamath Proof Explorer


Theorem elbl

Description: Membership in a ball. (Contributed by NM, 2-Sep-2006) (Revised by Mario Carneiro, 11-Nov-2013)

Ref Expression
Assertion elbl ( ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) ∧ 𝑃 ∈ 𝑋 ∧ 𝑅 ∈ ℝ* ) β†’ ( 𝐴 ∈ ( 𝑃 ( ball β€˜ 𝐷 ) 𝑅 ) ↔ ( 𝐴 ∈ 𝑋 ∧ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) ) )

Proof

Step Hyp Ref Expression
1 blval ⊒ ( ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) ∧ 𝑃 ∈ 𝑋 ∧ 𝑅 ∈ ℝ* ) β†’ ( 𝑃 ( ball β€˜ 𝐷 ) 𝑅 ) = { π‘₯ ∈ 𝑋 ∣ ( 𝑃 𝐷 π‘₯ ) < 𝑅 } )
2 1 eleq2d ⊒ ( ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) ∧ 𝑃 ∈ 𝑋 ∧ 𝑅 ∈ ℝ* ) β†’ ( 𝐴 ∈ ( 𝑃 ( ball β€˜ 𝐷 ) 𝑅 ) ↔ 𝐴 ∈ { π‘₯ ∈ 𝑋 ∣ ( 𝑃 𝐷 π‘₯ ) < 𝑅 } ) )
3 oveq2 ⊒ ( π‘₯ = 𝐴 β†’ ( 𝑃 𝐷 π‘₯ ) = ( 𝑃 𝐷 𝐴 ) )
4 3 breq1d ⊒ ( π‘₯ = 𝐴 β†’ ( ( 𝑃 𝐷 π‘₯ ) < 𝑅 ↔ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) )
5 4 elrab ⊒ ( 𝐴 ∈ { π‘₯ ∈ 𝑋 ∣ ( 𝑃 𝐷 π‘₯ ) < 𝑅 } ↔ ( 𝐴 ∈ 𝑋 ∧ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) )
6 2 5 bitrdi ⊒ ( ( 𝐷 ∈ ( ∞Met β€˜ 𝑋 ) ∧ 𝑃 ∈ 𝑋 ∧ 𝑅 ∈ ℝ* ) β†’ ( 𝐴 ∈ ( 𝑃 ( ball β€˜ 𝐷 ) 𝑅 ) ↔ ( 𝐴 ∈ 𝑋 ∧ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) ) )