michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/data/real/basic): improve performance

Browse source
This commit is contained in:
Leonardo de Moura 2015-12-09 10:57:16 -08:00
parent cbc3c0cf4f
commit 1b80dc0df6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
library/data/real/basic.lean
View file

@ -947,7 +947,7 @@ section
eq_of_forall_abs_sub_le eq_of_forall_abs_sub_le
(take ε, (take ε,
suppose ε > 0, suppose ε > 0,
have ε / 2 > 0, from div_pos_of_pos_of_pos this two_pos, have ε / 2 > 0, begin exact div_pos_of_pos_of_pos this two_pos end,
obtain n (Hn : n⁻¹ ≤ ε / 2), from pnat_bound this, obtain n (Hn : n⁻¹ ≤ ε / 2), from pnat_bound this,
show abs (a - b) ≤ ε, from calc show abs (a - b) ≤ ε, from calc
abs (a - b) ≤ n⁻¹ + n⁻¹ : H₁ n abs (a - b) ≤ n⁻¹ + n⁻¹ : H₁ n