From 038d2109e78d9c688acfc3338140cc908151db76 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown@cl.cam.ac.uk>
Date: Tue, 5 Apr 2022 12:08:00 +0100
Subject: Generalise 0 comparison to ≤.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda b/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda
index c83f683..5c35176 100644
--- a/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda
+++ b/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda
@@ -119,6 +119,8 @@ open import Helium.Algebra.Ordered.StrictTotal.Properties.AbelianGroup +-abelian
 
   ; x<y⇒ε<y∙x⁻¹ to x<y⇒0<y-x
   ; ε<y∙x⁻¹⇒x<y to 0<y-x⇒x<y
+  ; x≤y⇒ε≤y∙x⁻¹ to x≤y⇒0≤y-x
+  ; ε≤y∙x⁻¹⇒x≤y to 0≤y-x⇒x≤y
   )
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3