aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/abstract/monoid.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/abstract/monoid.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/abstract/monoid.lux b/stdlib/source/test/lux/abstract/monoid.lux
index 4f48cd643..c52ebcc36 100644
--- a/stdlib/source/test/lux/abstract/monoid.lux
+++ b/stdlib/source/test/lux/abstract/monoid.lux
@@ -23,11 +23,11 @@
intR random.int]
(<| (_.covering /._)
(all _.and
- (_.cover [/.and]
- (let [[natLR intLR] (# (/.and nat.addition int.multiplication) composite
- [natL intL] [natR intR])]
- (and (nat.= (# nat.addition composite natL natR)
- natLR)
- (int.= (# int.multiplication composite intL intR)
- intLR))))
+ (_.coverage [/.and]
+ (let [[natLR intLR] (# (/.and nat.addition int.multiplication) composite
+ [natL intL] [natR intR])]
+ (and (nat.= (# nat.addition composite natL natR)
+ natLR)
+ (int.= (# int.multiplication composite intL intR)
+ intLR))))
))))