diff options
Diffstat (limited to 'src/algebra/perm.spad.pamphlet')
| -rw-r--r-- | src/algebra/perm.spad.pamphlet | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/perm.spad.pamphlet b/src/algebra/perm.spad.pamphlet index 141f9c58..e0f014d1 100644 --- a/src/algebra/perm.spad.pamphlet +++ b/src/algebra/perm.spad.pamphlet @@ -213,8 +213,7 @@ domain. if smaller?(cyc.i,min) then min := cyc.i minpos := i --- one? minpos => cyc - (minpos = 1) => cyc + one? minpos => cyc concat(last(cyc,((#cyc-minpos+1)::NNI)),first(cyc,(minpos-1)::NNI)) coerceCycle(lls : L L S): % == |