aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/equation2.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/equation2.spad.pamphlet')
-rw-r--r--src/algebra/equation2.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/equation2.spad.pamphlet b/src/algebra/equation2.spad.pamphlet
index 4079a096..7aad51f6 100644
--- a/src/algebra/equation2.spad.pamphlet
+++ b/src/algebra/equation2.spad.pamphlet
@@ -189,8 +189,7 @@ Equation(S: Type): public == private where
eq1 - eq2 == eq1.lhs - eq2.lhs = eq1.rhs - eq2.rhs
if S has SemiGroup then
eq1:$ * eq2:$ == eq1.lhs * eq2.lhs = eq1.rhs * eq2.rhs
- l:S * eqn:$ == l * eqn.lhs = l * eqn.rhs
- l:S * eqn:$ == l * eqn.lhs = l * eqn.rhs
+ l:S * eqn:$ == l * eqn.lhs = l * eqn.rhs
eqn:$ * l:S == eqn.lhs * l = eqn.rhs * l
-- We have to be a bit careful here: raising to a +ve integer is OK
-- (since it's the equivalent of repeated multiplication)