summaryrefslogtreecommitdiff
path: root/src/Helium/Algebra/Structures.agda
diff options
context:
space:
mode:
authorGreg Brown <greg.brown@cl.cam.ac.uk>2022-03-08 18:49:39 +0000
committerGreg Brown <greg.brown@cl.cam.ac.uk>2022-03-08 18:49:39 +0000
commit69b82b0f568dd840f05f6aa9902ee6dcd5df5cad (patch)
tree11ba0964073cdb5f8de8bc1689f0e53eb21879a2 /src/Helium/Algebra/Structures.agda
parentc32c75ab3d5628163a4ece83e38d85152bf9e189 (diff)
Migrate to agda-stdlib-2.0-dev.axiomatic
Diffstat (limited to 'src/Helium/Algebra/Structures.agda')
-rw-r--r--src/Helium/Algebra/Structures.agda5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Helium/Algebra/Structures.agda b/src/Helium/Algebra/Structures.agda
index b64b4c7..f88ce59 100644
--- a/src/Helium/Algebra/Structures.agda
+++ b/src/Helium/Algebra/Structures.agda
@@ -72,6 +72,7 @@ record IsDivisionRing
(_⁻¹ : AlmostOp₁ _≈_ 0#) : Set (a ⊔ ℓ) where
field
+-isAbelianGroup : IsAbelianGroup + 0# -_
+ -- FIXME: unroll definition
*-isAlmostGroup : IsAlmostGroup _*_ 0# 1# _⁻¹
distrib : _*_ DistributesOver +
zero : Zero 0# _*_
@@ -126,7 +127,9 @@ record IsDivisionRing
isRing : IsRing + _*_ -_ 0# 1#
isRing = record
{ +-isAbelianGroup = +-isAbelianGroup
- ; *-isMonoid = *-isMonoid
+ ; *-cong = *-cong
+ ; *-assoc = *-assoc
+ ; *-identity = *-identity
; distrib = distrib
; zero = zero
}