aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/triset.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/triset.spad.pamphlet')
-rw-r--r--src/algebra/triset.spad.pamphlet10
1 files changed, 2 insertions, 8 deletions
diff --git a/src/algebra/triset.spad.pamphlet b/src/algebra/triset.spad.pamphlet
index 1057bf7b..71281026 100644
--- a/src/algebra/triset.spad.pamphlet
+++ b/src/algebra/triset.spad.pamphlet
@@ -531,10 +531,7 @@ GeneralTriangularSet(R,E,V,P) : Exports == Implementation where
Implementation == add
- Rep ==> LP
-
- rep(s:$):Rep == s pretend Rep
- per(l:Rep):$ == l pretend $
+ Rep == LP
copy ts ==
per(copy(rep(ts))$LP)
@@ -1515,10 +1512,7 @@ WuWenTsunTriangularSet(R,E,V,P) : Exports == Implementation where
removeSquares: $ -> Union($,"failed")
- Rep ==> LP
-
- rep(s:$):Rep == s pretend Rep
- per(l:Rep):$ == l pretend $
+ Rep == LP
removeAssociates (lp:LP):LP ==
removeDuplicates [primPartElseUnitCanonical(p) for p in lp]