diff options
| author | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-04-05 12:08:00 +0100 |
|---|---|---|
| committer | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-04-05 12:08:00 +0100 |
| commit | 038d2109e78d9c688acfc3338140cc908151db76 (patch) | |
| tree | 3687ed702cf13d728cffe23642a3fe6affb73310 /src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda | |
| parent | b212c150ec0a9bf45cf6c28fba997693669e78d2 (diff) | |
Generalise 0 comparison to ≤.
Diffstat (limited to 'src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda')
| -rw-r--r-- | src/Helium/Algebra/Ordered/StrictTotal/Properties/Ring.agda | 2 |
1 files changed, 2 insertions, 0 deletions
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 ) -------------------------------------------------------------------------------- |