From 7de7db24ba5bb2cfe9fae6f070e60db3510fcc69 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown@cl.cam.ac.uk>
Date: Tue, 5 Apr 2022 12:43:53 +0100
Subject: Add a useful transport proof.

---
 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 624cd21..fe31823 100644
--- a/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda
+++ b/src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda
@@ -122,6 +122,8 @@ open import Helium.Algebra.Ordered.StrictTotal.Properties.AbelianGroup +-abelian
   ; ε<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
+
+  ; x<y∙z⇒x∙z⁻¹<y to x<y+z⇒x-z<y
   )
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3