Metamath Proof Explorer


Theorem iooabslt

Description: An upper bound for the distance from the center of an open interval. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses iooabslt.1 ⊒ ( πœ‘ β†’ 𝐴 ∈ ℝ )
iooabslt.2 ⊒ ( πœ‘ β†’ 𝐡 ∈ ℝ )
iooabslt.3 ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝐴 βˆ’ 𝐡 ) (,) ( 𝐴 + 𝐡 ) ) )
Assertion iooabslt ( πœ‘ β†’ ( abs β€˜ ( 𝐴 βˆ’ 𝐢 ) ) < 𝐡 )

Proof

Step Hyp Ref Expression
1 iooabslt.1 ⊒ ( πœ‘ β†’ 𝐴 ∈ ℝ )
2 iooabslt.2 ⊒ ( πœ‘ β†’ 𝐡 ∈ ℝ )
3 iooabslt.3 ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝐴 βˆ’ 𝐡 ) (,) ( 𝐴 + 𝐡 ) ) )
4 1 recnd ⊒ ( πœ‘ β†’ 𝐴 ∈ β„‚ )
5 elioore ⊒ ( 𝐢 ∈ ( ( 𝐴 βˆ’ 𝐡 ) (,) ( 𝐴 + 𝐡 ) ) β†’ 𝐢 ∈ ℝ )
6 3 5 syl ⊒ ( πœ‘ β†’ 𝐢 ∈ ℝ )
7 6 recnd ⊒ ( πœ‘ β†’ 𝐢 ∈ β„‚ )
8 eqid ⊒ ( abs ∘ βˆ’ ) = ( abs ∘ βˆ’ )
9 8 cnmetdval ⊒ ( ( 𝐴 ∈ β„‚ ∧ 𝐢 ∈ β„‚ ) β†’ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) = ( abs β€˜ ( 𝐴 βˆ’ 𝐢 ) ) )
10 4 7 9 syl2anc ⊒ ( πœ‘ β†’ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) = ( abs β€˜ ( 𝐴 βˆ’ 𝐢 ) ) )
11 eqid ⊒ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) = ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) )
12 11 bl2ioo ⊒ ( ( 𝐴 ∈ ℝ ∧ 𝐡 ∈ ℝ ) β†’ ( 𝐴 ( ball β€˜ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) ) 𝐡 ) = ( ( 𝐴 βˆ’ 𝐡 ) (,) ( 𝐴 + 𝐡 ) ) )
13 1 2 12 syl2anc ⊒ ( πœ‘ β†’ ( 𝐴 ( ball β€˜ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) ) 𝐡 ) = ( ( 𝐴 βˆ’ 𝐡 ) (,) ( 𝐴 + 𝐡 ) ) )
14 3 13 eleqtrrd ⊒ ( πœ‘ β†’ 𝐢 ∈ ( 𝐴 ( ball β€˜ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) ) 𝐡 ) )
15 cnxmet ⊒ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ )
16 15 a1i ⊒ ( πœ‘ β†’ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) )
17 4 1 elind ⊒ ( πœ‘ β†’ 𝐴 ∈ ( β„‚ ∩ ℝ ) )
18 2 rexrd ⊒ ( πœ‘ β†’ 𝐡 ∈ ℝ* )
19 11 blres ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 𝐴 ∈ ( β„‚ ∩ ℝ ) ∧ 𝐡 ∈ ℝ* ) β†’ ( 𝐴 ( ball β€˜ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) ) 𝐡 ) = ( ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∩ ℝ ) )
20 16 17 18 19 syl3anc ⊒ ( πœ‘ β†’ ( 𝐴 ( ball β€˜ ( ( abs ∘ βˆ’ ) β†Ύ ( ℝ Γ— ℝ ) ) ) 𝐡 ) = ( ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∩ ℝ ) )
21 14 20 eleqtrd ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∩ ℝ ) )
22 elin ⊒ ( 𝐢 ∈ ( ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∩ ℝ ) ↔ ( 𝐢 ∈ ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∧ 𝐢 ∈ ℝ ) )
23 21 22 sylib ⊒ ( πœ‘ β†’ ( 𝐢 ∈ ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ∧ 𝐢 ∈ ℝ ) )
24 23 simpld ⊒ ( πœ‘ β†’ 𝐢 ∈ ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) )
25 elbl ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 𝐴 ∈ β„‚ ∧ 𝐡 ∈ ℝ* ) β†’ ( 𝐢 ∈ ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ↔ ( 𝐢 ∈ β„‚ ∧ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) < 𝐡 ) ) )
26 16 4 18 25 syl3anc ⊒ ( πœ‘ β†’ ( 𝐢 ∈ ( 𝐴 ( ball β€˜ ( abs ∘ βˆ’ ) ) 𝐡 ) ↔ ( 𝐢 ∈ β„‚ ∧ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) < 𝐡 ) ) )
27 24 26 mpbid ⊒ ( πœ‘ β†’ ( 𝐢 ∈ β„‚ ∧ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) < 𝐡 ) )
28 27 simprd ⊒ ( πœ‘ β†’ ( 𝐴 ( abs ∘ βˆ’ ) 𝐢 ) < 𝐡 )
29 10 28 eqbrtrrd ⊒ ( πœ‘ β†’ ( abs β€˜ ( 𝐴 βˆ’ 𝐢 ) ) < 𝐡 )