diff options
Diffstat (limited to 'src/algebra/sregset.spad.pamphlet')
-rw-r--r-- | src/algebra/sregset.spad.pamphlet | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/algebra/sregset.spad.pamphlet b/src/algebra/sregset.spad.pamphlet index 8a7c7e5c..7528a521 100644 --- a/src/algebra/sregset.spad.pamphlet +++ b/src/algebra/sregset.spad.pamphlet @@ -1226,10 +1226,7 @@ SquareFreeRegularTriangularSet(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) |