1.2.13 `sm1.distraction'
------------------------

sm1.distraction([F,V,X,D,S]|proc=P)
     ::  ask the `sm1' server to compute the distraction of F.

RETURN
     List

P
     Number

F
     Polynomial

V,X,D,S
     List

   * It asks the `sm1' server of the descriptor number P to compute the
     distraction of  F in the ring of differential operators with
     variables V.

   * X is a list of x-variables and D is that of d-variables to be
     distracted. S is a list of variables to express the distracted F.

   * Distraction is roughly speaking to replace x*dx by a single
     variable x.  See Saito, Sturmfels, Takayama : Grobner Deformations
     of Hypergeometric Differential Equations at page 68 for details.

     [280] sm1.distraction([x*dx,[x],[x],[dx],[x]]);
     x
     [281] sm1.distraction([dx^2,[x],[x],[dx],[x]]);
     x^2-x
     [282] sm1.distraction([x^2,[x],[x],[dx],[x]]);
     x^2+3*x+2
     [283] fctr(@);
     [[1,1],[x+1,1],[x+2,1]]
     [284] sm1.distraction([x*dx*y+x^2*dx^2*dy,[x,y],[x],[dx],[x]]);
     (x^2-x)*dy+x*y

Reference
     `distraction2(sm1)',

