diff options
author | fbesson <fbesson@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-18 21:38:49 +0000 |
---|---|---|
committer | fbesson <fbesson@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-18 21:38:49 +0000 |
commit | 10b4e452dc4ff94c24c45b5d6961ca6b9b7f9edb (patch) | |
tree | 708bd66ce7a299d8388f86557a57a19436d5f75d /plugins/micromega/micromega.mli | |
parent | 3341fdc330f65af15a23f97620978a7e04e78d01 (diff) |
micromega: better handling of exponentiation + correction of test-suite termination bug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12346 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/micromega/micromega.mli')
-rw-r--r-- | plugins/micromega/micromega.mli | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/plugins/micromega/micromega.mli b/plugins/micromega/micromega.mli index 34f61904a..3e3ae2c31 100644 --- a/plugins/micromega/micromega.mli +++ b/plugins/micromega/micromega.mli @@ -61,6 +61,8 @@ type n = | N0 | Npos of positive +val pow_pos : ('a1 -> 'a1 -> 'a1) -> 'a1 -> positive -> 'a1 + type z = | Z0 | Zpos of positive @@ -86,7 +88,7 @@ val zcompare : z -> z -> comparison val zabs : z -> z -val z_gt_dec : z -> z -> bool +val zmax : z -> z -> z val zle_bool : z -> z -> bool @@ -349,6 +351,12 @@ val qopp : q -> q val qminus : q -> q -> q +val qinv : q -> q + +val qpower_positive : q -> positive -> q + +val qpower : q -> z -> q + val pgcdn : nat -> positive -> positive -> positive val pgcd : positive -> positive -> positive @@ -388,7 +396,7 @@ type zArithProof = | CutProof of zWitness * zArithProof | EnumProof of zWitness * zWitness * zArithProof list -val isZ0 : z -> bool +val zgcdM : z -> z -> z val zgcd_pol : z polC -> z * z |