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

chore(library/algebra/ordered_field): remove redundant line in calc

Browse source
This commit is contained in:
Rob Lewis 2015-06-23 16:47:26 +10:00 committed by Leonardo de Moura
parent afcf785f03
commit 82950e1c52
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
library/algebra/ordered_field.lean
View file

@ -71,8 +71,7 @@ section linear_ordered_field
iff.intro iff.intro
(assume H : 1 < a / b, (assume H : 1 < a / b,
calc calc
b = b : refl b < b * (a / b) : lt_mul_of_gt_one_right Hb H
... < b * (a / b) : lt_mul_of_gt_one_right Hb H
... = a : mul_div_cancel' Hb') ... = a : mul_div_cancel' Hb')
(assume H : b < a, (assume H : b < a,
have Hbinv : 1 / b > 0, from div_pos_of_pos Hb, calc have Hbinv : 1 / b > 0, from div_pos_of_pos Hb, calc