share/contrib/Zeilberger/compatible.mac

   1 /* Maxima-compatibility definitions */
   2
   3 /* RISC Institute, Linz, Austria    */
   4 /* by Fabrizio Caruso               */
   5
   6
   7 zb_op(expr) :=
   8   if atom(expr) then
   9      expr
  10   else
  11      part(expr,0);
  12
  13
  14 zb_operatorp(expr,operator) :=
  15     if zb_op(expr)=operator then
  16        true
  17     else
  18        false;
  19
  20
  21
  22
  23
  24