From 4cd820506e0fd2a5595a11555fc2a6206757b3cd Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown@cl.cam.ac.uk>
Date: Mon, 4 Apr 2022 15:40:31 +0100
Subject: Add group inverse preserves identity.

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

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

diff --git a/src/Helium/Algebra/Ordered/StrictTotal/Properties/DivisionRing.agda b/src/Helium/Algebra/Ordered/StrictTotal/Properties/DivisionRing.agda
index 3961ca1..03e8ecd 100644
--- a/src/Helium/Algebra/Ordered/StrictTotal/Properties/DivisionRing.agda
+++ b/src/Helium/Algebra/Ordered/StrictTotal/Properties/DivisionRing.agda
@@ -61,8 +61,8 @@ open import Helium.Algebra.Ordered.StrictTotal.Properties.Ring ring public
   ; -‿anti-mono-<; -‿anti-mono-≤
   ; -‿anti-cancel-<; -‿anti-cancel-≤
 
-  ; x<0⇒-x>0; x>0⇒-x<0; x≤0⇒-x≥0; x≥0⇒-x≤0
-  ; -x<0⇒x>0; -x>0⇒x<0; -x≤0⇒x≥0; -x≥0⇒x≤0
+  ; x≈0⇒-x≈0 ; x<0⇒-x>0; x>0⇒-x<0; x≤0⇒-x≥0; x≥0⇒-x≤0
+  ; -x≈0⇒x≈0 ; -x<0⇒x>0; -x>0⇒x<0; -x≤0⇒x≥0; -x≥0⇒x≤0
 
   ; x<y⇒0<y-x; 0<y-x⇒x<y
 
-- 
cgit v1.2.3