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/ideal.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/ideal.ml')
| -rw-r--r-- | plugins/nsatz/ideal.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/nsatz/ideal.ml b/plugins/nsatz/ideal.ml index 84a05f0ee..b635fd1fc 100644 --- a/plugins/nsatz/ideal.ml +++ b/plugins/nsatz/ideal.ml @@ -363,7 +363,7 @@ let stringPcut p = nsP2:=10; let res = if (length p)> !nsP2 - then (stringP [hd p])^" + "^(string_of_int (length p))^" termes" + then (stringP [hd p])^" + "^(string_of_int (length p))^" terms" else stringP p in (*Polynomesrec.nsP1:= max_int;*) nsP2:= max_int; @@ -992,7 +992,7 @@ let pbuchf pq p lp0= coefpoldep_remove a q; coefpoldep_set a q c) lca !poldep; let a0 = a in - info ("\nnew polynomials: "^(stringPcut (ppol a0))^"\n"); + info ("\nnew polynomial: "^(stringPcut (ppol a0))^"\n"); let ct = coef1 (* contentP a0 *) in (*info ("content: "^(string_of_coef ct)^"\n");*) poldep:=addS a0 lp; |