diff options
| author | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 18:49:39 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 18:49:39 +0000 |
| commit | 69b82b0f568dd840f05f6aa9902ee6dcd5df5cad (patch) | |
| tree | 11ba0964073cdb5f8de8bc1689f0e53eb21879a2 /src/Helium/Algebra | |
| parent | c32c75ab3d5628163a4ece83e38d85152bf9e189 (diff) | |
Migrate to agda-stdlib-2.0-dev.axiomatic
Diffstat (limited to 'src/Helium/Algebra')
| -rw-r--r-- | src/Helium/Algebra/Bundles.agda | 1 | ||||
| -rw-r--r-- | src/Helium/Algebra/Decidable/Bundles.agda | 2 | ||||
| -rw-r--r-- | src/Helium/Algebra/Decidable/Construct/Pointwise.agda | 2 | ||||
| -rw-r--r-- | src/Helium/Algebra/Ordered/StrictTotal/Structures.agda | 5 | ||||
| -rw-r--r-- | src/Helium/Algebra/Structures.agda | 5 |
5 files changed, 11 insertions, 4 deletions
diff --git a/src/Helium/Algebra/Bundles.agda b/src/Helium/Algebra/Bundles.agda index 1fa3634..c7ed8d0 100644 --- a/src/Helium/Algebra/Bundles.agda +++ b/src/Helium/Algebra/Bundles.agda @@ -10,6 +10,7 @@ module Helium.Algebra.Bundles where open import Algebra.Bundles +open import Algebra.Lattice.Bundles open import Algebra.Core open import Helium.Algebra.Core open import Helium.Algebra.Structures diff --git a/src/Helium/Algebra/Decidable/Bundles.agda b/src/Helium/Algebra/Decidable/Bundles.agda index e446706..c40de30 100644 --- a/src/Helium/Algebra/Decidable/Bundles.agda +++ b/src/Helium/Algebra/Decidable/Bundles.agda @@ -9,7 +9,7 @@ module Helium.Algebra.Decidable.Bundles where -open import Algebra.Bundles using (RawLattice) +open import Algebra.Lattice.Bundles using (RawLattice) open import Algebra.Core open import Helium.Algebra.Decidable.Structures open import Level using (suc; _⊔_) diff --git a/src/Helium/Algebra/Decidable/Construct/Pointwise.agda b/src/Helium/Algebra/Decidable/Construct/Pointwise.agda index 9f067ba..cccaa96 100644 --- a/src/Helium/Algebra/Decidable/Construct/Pointwise.agda +++ b/src/Helium/Algebra/Decidable/Construct/Pointwise.agda @@ -8,7 +8,7 @@ module Helium.Algebra.Decidable.Construct.Pointwise where -open import Algebra.Bundles using (RawLattice) +open import Algebra.Lattice.Bundles using (RawLattice) open import Algebra.Core open import Data.Nat using (ℕ) open import Data.Product using (_,_) diff --git a/src/Helium/Algebra/Ordered/StrictTotal/Structures.agda b/src/Helium/Algebra/Ordered/StrictTotal/Structures.agda index 6f6b38d..b9db374 100644 --- a/src/Helium/Algebra/Ordered/StrictTotal/Structures.agda +++ b/src/Helium/Algebra/Ordered/StrictTotal/Structures.agda @@ -161,6 +161,7 @@ record IsAbelianGroup (∙ : Op₂ A) record IsRing (+ _*_ : Op₂ A) (-_ : Op₁ A) (0# 1# : A) : Set (a ⊔ ℓ₁ ⊔ ℓ₂) where field +-isAbelianGroup : IsAbelianGroup + 0# -_ + -- FIXME: unroll definition *-isMonoid : NoOrder.IsMonoid _*_ 1# distrib : _*_ DistributesOver + zero : Zero 0# _*_ @@ -224,7 +225,9 @@ record IsRing (+ _*_ : Op₂ A) (-_ : Op₁ A) (0# 1# : A) : Set (a ⊔ ℓ₁ isRing : NoOrder.IsRing + _*_ -_ 0# 1# isRing = record { +-isAbelianGroup = IsAbelianGroup.Unordered.isAbelianGroup +-isAbelianGroup - ; *-isMonoid = *-isMonoid + ; *-cong = *-cong + ; *-assoc = *-assoc + ; *-identity = *-identity ; distrib = distrib ; zero = zero } 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 } |