Changeset e6651bb in git for Singular/LIB

Timestamp:

Oct 1, 2010, 3:47:12 PM (14 years ago)

Author:

Stefan Steidel <steidel@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ab453daee98352311cf44b87c2864d4becd7b65c

Parents:

1529965e764d82d495b1b8266e8e1bd5bba5a061

Message:

Small changes in procedure equidimZ to avoid redefinings

git-svn-id: file:///usr/local/Singular/svn/trunk@13366 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/primdecint.lib (modified) (2 diffs)

Singular/LIB/primdecint.lib

@@ -836 +836 @@
                TQ=intersectZ(TQ,E);
             }
-            kill S;
-            setring Rhelp;
-         }
+         }
+         kill S;
+         setring Rhelp;
       }
       setring R;
@@ -857 +857 @@
    }
    setring R;
-   ideal  E =imap(Rhelp,E);
+   E =imap(Rhelp,E);
    //=== intersection with Z[variables]
    E=coefZ(E)[1];