`cr_gcda'
---------

cr_gcda(POLY1,POLY2)
     :: $BBe?tBN>e$N(B 1 $BJQ?tB?9`<0$N(B GCD

RETURN
     $BB?9`<0(B

POLY1, POLY2
     $BB?9`<0(B

   * `sp' $B$GDj5A$5$l$F$$$k(B.

   * 2 $B$D$N(B 1 $BJQ?tB?9`<0$N(B GCD $B$r5a$a$k(B.

     [76] X=x^6+3*x^5+6*x^4+x^3-3*x^2+12*x+16$
     [77] Y=x^6+6*x^5+24*x^4+8*x^3-48*x^2+384*x+1024$
     [78] A=newalg(X);
     (#0)
     [79] cr_gcda(X,subst(Y,x,x+A));
     x+(-#0)

$B;2>H(B
     *Note `gr hgr gr_mod': gr hgr gr_mod, *Note `asq af af_noalg': asq
     af af_noalg

