1,2c1,2
< %	Changes augredand by replacing Cdr(augredand) (effectively) by
< %	Cdr(augredand)*coef1 + pol2*coef2. Cadr(place) is removed.
---
> %	Changes augredand by replacing PPol(augredand) (effectively) by
> %	coef1*PPol(augredand) + coef2*pol2. Cadr(place) is removed.
4c4
< (DE SimpPolLinComb (augredand place pol coef1 coef2)
---
> (DE SparseContentChar0SimpPolLinComb (augredand place pol coef1 coef2)
7c7
< 	       (PolPartNMult (PPol augredand) (PolTail place) coef1)))
---
> 	       (Char0PolPartNMult (PPol augredand) (PolTail place) coef1)))
14c14
< 	(COND ((Pol0? (PolTail AA)) (RETURN (ConcPolNMult AA BB coef2)))
---
> 	(COND ((Pol0!? (PolTail AA)) (RETURN (Char0ConcPolNMult AA BB coef2)))
16c16
< 	       (COND ((ZEROP (SETQ DD (CfLinComb (Lc (PolTail AA)) coef1
---
> 	       (COND ((Cf0!? (SETQ DD (CfLinComb (Lc (PolTail AA)) coef1
31c31
< 		      (COND ((ZEROP (SETQ DD
---
> 		      (COND ((Cf0!? (SETQ DD
48c48
< 	       (ConcPolNMult AA BB coef2))
---
> 	       (Char0ConcPolNMult AA BB coef2))
50c50
< 	       (Char0DestructRedandCoeffTimes (PolTail AA) coef1)))
---
> 	       (Char0DestructRedandCoeffTimes AA coef1)))
59c59
< (DE ContentSimpPolLinComb (augredand place pol coef1 coef2)
---
> (DE DenseContentChar0SimpPolLinComb (augredand place pol coef1 coef2)
68c68
<   Fl	(COND ((NOT (EQ FF 1)) (SETQ FF (GCDN FF (Lc AA)))))
---
>   Fl	(COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN FF (Lc AA)))))
77,80c77,80
< 	(COND ((NOT (EQ FF 1)) (SETQ FF (GCDN (Lc AA) FF))))
< 	(COND ((Pol0? (PolTail AA))
< 	       (ConcPolNMult AA BB coef2)
< 	       (RETURN (NPolGCD FF (PolTail AA))))
---
> 	(COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN (Lc AA) FF))))
> 	(COND ((Pol0!? (PolTail AA))
> 	       (Char0ConcPolNMult AA BB coef2)
> 	       (RETURN (Char0NPolGCD FF (PolTail AA))))
82c82
< 	       (COND ((ZEROP (SETQ DD (CfLinComb (Lc (PolTail AA)) coef1
---
> 	       (COND ((Cf0!? (SETQ DD (CfLinComb (Lc (PolTail AA)) coef1
87c87
< 		      (COND ((NOT (EQ FF 1)) (SETQ FF (GCDN DD FF))))
---
> 		      (COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN DD FF))))
94c94
< 	(COND ((NOT (EQ FF 1)) (SETQ FF (GCDN (Lc AA) FF))))
---
> 	(COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN (Lc AA) FF))))
98c98
< 		      (COND ((ZEROP (SETQ DD
---
> 		      (COND ((Cf0!? (SETQ DD
104c104
< 			     (COND ((NOT (EQ FF 1)) (SETQ FF (GCDN DD FF))))
---
> 			     (COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN DD FF))))
112c112
< 		      (COND ((NOT (EQ FF 1)) (SETQ FF (GCDN (Lc AA) FF))))
---
> 		      (COND ((NOT (Cf1!? FF)) (SETQ FF (GCDN (Lc AA) FF))))
117c117
< 	       (ConcPolNMult AA BB coef2))
---
> 	       (Char0ConcPolNMult AA BB coef2))
119,120c119,120
< 	       (Char0DestructRedandCoeffTimes (PolTail AA) coef1)))
< 	(RETURN (NPolGCD FF (PolTail AA)))
---
> 	       (Char0DestructRedandCoeffTimes AA coef1)))
> 	(RETURN (Char0NPolGCD FF (PolTail AA)))
