From c6aee22d68aa614619cecc08a15332294a9de0de Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown@cl.cam.ac.uk>
Date: Sat, 9 Apr 2022 16:24:18 +0100
Subject: Add some more algebraic properties.

---
 src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda')

diff --git a/src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda b/src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda
index 79d3b2d..eb46e27 100644
--- a/src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda
+++ b/src/Helium/Algebra/Ordered/StrictTotal/Properties/Field.agda
@@ -126,7 +126,7 @@ open import Helium.Algebra.Ordered.StrictTotal.Properties.DivisionRing divisionR
 
   ; -‿⁻¹-comm
   ; x≉0⇒x⁻¹≉0
-  ; y>0∧x<y⇒x*y⁻¹<1
+  ; y>0∧x<y⇒x*y⁻¹<1; y>0∧x≤y⇒x*y⁻¹≤1
   )
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3