diff options
| author |  pottier <pottier@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-16 14:01:47 +0000 |
|---|---|---|
| committer | pottier <pottier@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-16 14:01:47 +0000 |
| commit | 421488ebba1e8b1f0c9770a2bb1971551be76363 (patch) | |
| tree | c775b91d6b618e44341a524e129f63937be24c6a /plugins/nsatz/polynom.ml | |
| parent | bbf3fd0c2b98fdc2339c2dec6db1bc888aa94fa6 (diff) | |
Tests de nsatz avec la geometrie
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14210 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |