Skip to content

Commit 1e0aebb

Browse files
committed
deleted unnecessary hilbertPolynomial code in SpectralSequences
1 parent 2f34e93 commit 1e0aebb

File tree

1 file changed

+0
-12
lines changed

1 file changed

+0
-12
lines changed

M2/Macaulay2/packages/SpectralSequences.m2

Lines changed: 0 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -751,18 +751,6 @@ connectingMorphism(ComplexMap,ZZ) := (a,n) -> (
751751
e^1 .dd_{1, n}
752752
)
753753

754-
-- here are some needed functions related to Hilbert polynomials --
755-
hilbertPolynomial ZZ := ProjectiveHilbertPolynomial => o -> (M) -> ( if M == 0
756-
then new ProjectiveHilbertPolynomial from {} else
757-
new ProjectiveHilbertPolynomial from {0 => M}
758-
)
759-
ProjectiveHilbertPolynomial == ZZ := (M,N) -> (M == hilbertPolynomial N)
760-
ProjectiveHilbertPolynomial + ZZ := (P, N) -> P + hilbertPolynomial N
761-
ZZ + ProjectiveHilbertPolynomial := (P,N) -> hilbertPolynomial P + N
762-
ProjectiveHilbertPolynomial - ZZ := (P, N) -> P - hilbertPolynomial N
763-
ZZ - ProjectiveHilbertPolynomial := (P,N) -> hilbertPolynomial P - N
764-
---
765-
766754
hilbertPolynomial SpectralSequencePage := Page => o -> E -> (
767755
P := new Page;
768756
apply(spots E .dd, i -> P#i = hilbertPolynomial(E_i));

0 commit comments

Comments
 (0)