57 lines
747 B
Common Lisp
57 lines
747 B
Common Lisp
|
|
(setf p (k-z2 1))
|
|
|
|
(setf sp (suspension p))
|
|
|
|
(setf s2p (suspension sp))
|
|
|
|
(setf s3p (suspension s2p))
|
|
|
|
(setf s4p (suspension s3p))
|
|
|
|
(homology s4p 5)
|
|
|
|
(setf ch5 (chml-clss s4p 5))
|
|
|
|
(setf f5 (z2-whitehead s4p ch5))
|
|
|
|
(setf x6 (fibration-total f5))
|
|
|
|
(homology x6 6)
|
|
|
|
(setf ch6 (chml-clss x6 6))
|
|
|
|
(setf f6 (z2-whitehead x6 ch6))
|
|
|
|
(setf x7 (fibration-total f6))
|
|
|
|
(homology x7 7)
|
|
|
|
(setf ch71 (chml-clss x7 7))
|
|
|
|
(setf f71 (z2-whitehead x7 ch71))
|
|
|
|
(setf x71 (fibration-total f71))
|
|
|
|
(homology x71 7)
|
|
|
|
(setf ch72 (chml-clss x71 7))
|
|
|
|
(setf f72 (z2-whitehead x71 ch72))
|
|
|
|
(setf x72 (fibration-total f72))
|
|
|
|
(homology x72 7)
|
|
|
|
(setf ch73 (chml-clss x72 7))
|
|
|
|
(setf f73 (z2-whitehead x72 ch73))
|
|
|
|
(setf x8 (fibration-total f73))
|
|
|
|
(homology x71 7)
|
|
|
|
(homology x71 8)
|
|
|
|
|