We build the homological Serre spectral sequence for the Hopf fibration S^3 \to S^2
i1 : Q = coupleRing(ZZ,1,e,f,Degrees=>{{-1,0},{2,-2}})
o1 = Q
o1 : PolynomialRing
|
i2 : declareCouple(Q, {z => {4,0}}, {x => {1,0}, y => {1,2}, w => {5,2}})
o2 = cokernel {5, 2} | e_1^2 e_1f_1 0 0 0 0 0 0 |
{1, 0} | 0 0 e_1^2 e_1f_1 0 0 0 0 |
{1, 2} | 0 0 0 0 e_1^2 e_1f_1 0 0 |
{4, 0} | 0 0 0 0 0 0 e_1^3 f_1 |
4
o2 : Q-module, quotient of Q
|
i3 : C = cospan(e_1*z-f_1*y)
o3 = cokernel {5, 2} | 0 e_1^2 e_1f_1 0 0 0 0 0 0 |
{1, 0} | 0 0 0 e_1^2 e_1f_1 0 0 0 0 |
{1, 2} | -f_1 0 0 0 0 e_1^2 e_1f_1 0 0 |
{4, 0} | e_1 0 0 0 0 0 0 e_1^3 f_1 |
4
o3 : Q-module, quotient of Q
|
i4 : isHomogeneous C o4 = true |
i5 : expectExactCouple C |
The output of declareCouple is a free exact couple, but it is not a free module for Q; the tautological couple relations are enforced. If Q = R[e,f], then we have that f annihilates every page generator and e^2 annihilates every aux generator. We also have that e*f and e^3 act by zero on all generators.
The object declareCouple is a method function.