Skip to content

Commit 3273278

Browse files
Add +-*-commutativeSemiring bundle for Integer (#1293) (#1336)
1 parent 35253c8 commit 3273278

File tree

2 files changed

+10
-0
lines changed

2 files changed

+10
-0
lines changed

CHANGELOG.md

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -112,3 +112,8 @@ Other minor additions
112112
take-drop-id : take m v ++ drop m v ≡ v
113113
zipWith-replicate : zipWith {n = n} _⊕_ (replicate x) (replicate y) ≡ replicate (x ⊕ y)
114114
```
115+
116+
* Add new properties to `Data.Integer.Properties`:
117+
```agda
118+
+-*-commutativeSemiring : CommutativeSemiring 0ℓ 0ℓ
119+
```

src/Data/Integer/Properties.agda

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1292,6 +1292,11 @@ private
12921292
{ isSemiring = +-*-isSemiring
12931293
}
12941294

1295+
+-*-commutativeSemiring : CommutativeSemiring 0ℓ 0ℓ
1296+
+-*-commutativeSemiring = record
1297+
{ isCommutativeSemiring = +-*-isCommutativeSemiring
1298+
}
1299+
12951300
+-*-ring : Ring 0ℓ 0ℓ
12961301
+-*-ring = record
12971302
{ isRing = +-*-isRing

0 commit comments

Comments
 (0)