Metamath Proof Explorer


Theorem blcom

Description: Commute the arguments to the ball function. (Contributed by Mario Carneiro, 22-Jan-2014)

Ref Expression
Assertion blcom ( ( ( 𝐷 ∈ ( ∞Met ‘ 𝑋 ) ∧ 𝑅 ∈ ℝ* ) ∧ ( 𝑃𝑋𝐴𝑋 ) ) → ( 𝐴 ∈ ( 𝑃 ( ball ‘ 𝐷 ) 𝑅 ) ↔ 𝑃 ∈ ( 𝐴 ( ball ‘ 𝐷 ) 𝑅 ) ) )

Proof

Step Hyp Ref Expression
1 elbl2 ( ( ( 𝐷 ∈ ( ∞Met ‘ 𝑋 ) ∧ 𝑅 ∈ ℝ* ) ∧ ( 𝑃𝑋𝐴𝑋 ) ) → ( 𝐴 ∈ ( 𝑃 ( ball ‘ 𝐷 ) 𝑅 ) ↔ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) )
2 elbl3 ( ( ( 𝐷 ∈ ( ∞Met ‘ 𝑋 ) ∧ 𝑅 ∈ ℝ* ) ∧ ( 𝐴𝑋𝑃𝑋 ) ) → ( 𝑃 ∈ ( 𝐴 ( ball ‘ 𝐷 ) 𝑅 ) ↔ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) )
3 2 ancom2s ( ( ( 𝐷 ∈ ( ∞Met ‘ 𝑋 ) ∧ 𝑅 ∈ ℝ* ) ∧ ( 𝑃𝑋𝐴𝑋 ) ) → ( 𝑃 ∈ ( 𝐴 ( ball ‘ 𝐷 ) 𝑅 ) ↔ ( 𝑃 𝐷 𝐴 ) < 𝑅 ) )
4 1 3 bitr4d ( ( ( 𝐷 ∈ ( ∞Met ‘ 𝑋 ) ∧ 𝑅 ∈ ℝ* ) ∧ ( 𝑃𝑋𝐴𝑋 ) ) → ( 𝐴 ∈ ( 𝑃 ( ball ‘ 𝐷 ) 𝑅 ) ↔ 𝑃 ∈ ( 𝐴 ( ball ‘ 𝐷 ) 𝑅 ) ) )