diff options
Diffstat (limited to 'plugins/nsatz/polynom.ml')
-rw-r--r-- | plugins/nsatz/polynom.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/nsatz/polynom.ml b/plugins/nsatz/polynom.ml index b8210bd39..45fcb2d25 100644 --- a/plugins/nsatz/polynom.ml +++ b/plugins/nsatz/polynom.ml @@ -282,12 +282,11 @@ let rec multx n v p = p2.(i+n)<-p1.(i); done; Prec (x,p2) - |_ -> if p = (Pint coef0) then (Pint coef0) + |_ -> if equal p (Pint coef0) then (Pint coef0) else (let p2=Array.create (n+1) (Pint coef0) in p2.(n)<-p; Prec (v,p2)) - (* product *) let rec multP p q = match (p,q) with |