aboutsummaryrefslogtreecommitdiff
path: root/algebraic-structures.group.number.product.scm
diff options
context:
space:
mode:
Diffstat (limited to 'algebraic-structures.group.number.product.scm')
-rw-r--r--algebraic-structures.group.number.product.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/algebraic-structures.group.number.product.scm b/algebraic-structures.group.number.product.scm
new file mode 100644
index 0000000..a57cdf6
--- /dev/null
+++ b/algebraic-structures.group.number.product.scm
@@ -0,0 +1,8 @@
+(import (only (algebraic-structures group make)))
+(module (algebraic-structures group number product) = (algebraic-structures group make)
+ (import scheme
+ (chicken module)
+ (algebraic-structures monoid number product))
+ (export <> unit inv)
+
+ (define (inv x) (/ x)))