diff options
| author | Maxime Dénès | 2017-06-02 13:59:41 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-06-02 13:59:41 +0200 |
| commit | fc2b721e1475ed09dbf5d60608d30127eeb8d4d0 (patch) | |
| tree | 1309447f19980c40edbe621bc6381f9f83888b1e /plugins/micromega/MExtraction.v | |
| parent | 4f67b85f71863360ab012a189eef7e2d03ba884b (diff) | |
| parent | 7fff12d45c4d86fa5cb9be3883084ffef5911405 (diff) | |
Merge PR#515: extract "plugins/micromega/micromega.ml{,i}" files from "plugins/micromega/MExtraction.v"
Diffstat (limited to 'plugins/micromega/MExtraction.v')
| -rw-r--r-- | plugins/micromega/MExtraction.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/plugins/micromega/MExtraction.v b/plugins/micromega/MExtraction.v index d28bb82863..4d5c3b1d5b 100644 --- a/plugins/micromega/MExtraction.v +++ b/plugins/micromega/MExtraction.v @@ -38,17 +38,17 @@ Extract Inductive sumor => option [ Some None ]. Let's rather use the ocaml && *) Extract Inlined Constant andb => "(&&)". -Require Import Reals. +Import Reals.Rdefinitions. -Extract Constant R => "int". -Extract Constant R0 => "0". -Extract Constant R1 => "1". +Extract Constant R => "int". +Extract Constant R0 => "0". +Extract Constant R1 => "1". Extract Constant Rplus => "( + )". Extract Constant Rmult => "( * )". Extract Constant Ropp => "fun x -> - x". Extract Constant Rinv => "fun x -> 1 / x". -Extraction "micromega.ml" +Extraction "plugins/micromega/micromega.ml" List.map simpl_cone (*map_cone indexes*) denorm Qpower vm_add n_of_Z N.of_nat ZTautoChecker ZWeakChecker QTautoChecker RTautoChecker find. |