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/MExtraction.v | |
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/MExtraction.v')
-rw-r--r-- | plugins/micromega/MExtraction.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/micromega/MExtraction.v b/plugins/micromega/MExtraction.v index 7b2c0231f..1d7fbd569 100644 --- a/plugins/micromega/MExtraction.v +++ b/plugins/micromega/MExtraction.v @@ -20,6 +20,7 @@ Require Import RMicromega. Require Import VarMap. Require Import RingMicromega. Require Import NArith. +Require Import QArith. Extract Inductive prod => "( * )" [ "(,)" ]. Extract Inductive List.list => list [ "[]" "(::)" ]. @@ -39,7 +40,7 @@ Extract Inlined Constant andb => "(&&)". Extraction "micromega.ml" List.map simpl_cone (*map_cone indexes*) - denorm + denorm Qpower n_of_Z Nnat.N_of_nat ZTautoChecker ZWeakChecker QTautoChecker RTautoChecker find. (* Local Variables: *) |