diff options
| author | vblot <24938579+vblot@users.noreply.github.com> | 2021-05-28 17:28:25 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-28 17:28:25 +0200 |
| commit | 52980aab9541a12619eb9191a94e9b2ba4684447 (patch) | |
| tree | 8abf94170130f24e376a8408139635b6bcaf7650 /src/versions | |
| parent | 74e568e4b7da72cefcf26af3cb189f9a43df647b (diff) | |
| download | smtcoq-52980aab9541a12619eb9191a94e9b2ba4684447.tar.gz smtcoq-52980aab9541a12619eb9191a94e9b2ba4684447.zip | |
Get rid of most of our copy of micromega's source code (#94)
Diffstat (limited to 'src/versions')
| -rw-r--r-- | src/versions/native/structures.ml | 2 | ||||
| -rw-r--r-- | src/versions/native/structures.mli | 2 | ||||
| -rw-r--r-- | src/versions/standard/structures.ml | 5 | ||||
| -rw-r--r-- | src/versions/standard/structures.mli | 3 |
4 files changed, 1 insertions, 11 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index 0738801..435a1a1 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -140,9 +140,7 @@ let mkTrace step_to_coq next carray _ _ _ _ size step def_step r = (* Micromega *) module Micromega_plugin_Micromega = Micromega -module Micromega_plugin_Mutils = Mutils module Micromega_plugin_Certificate = Certificate -module Micromega_plugin_Coq_micromega = Coq_micromega let micromega_coq_proofTerm = Coq_micromega.M.coq_proofTerm diff --git a/src/versions/native/structures.mli b/src/versions/native/structures.mli index d8071d9..f2775a6 100644 --- a/src/versions/native/structures.mli +++ b/src/versions/native/structures.mli @@ -82,9 +82,7 @@ val mkTrace : (* Micromega *) module Micromega_plugin_Micromega = Micromega -module Micromega_plugin_Mutils = Mutils module Micromega_plugin_Certificate = Certificate -module Micromega_plugin_Coq_micromega = Coq_micromega val micromega_coq_proofTerm : constr lazy_t val micromega_dump_proof_term : Micromega_plugin_Certificate.Mc.zArithProof -> constr diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index 9d54b11..863c921 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -170,10 +170,7 @@ let mkTrace step_to_coq next _ clist cnil ccons cpair size step def_step r = (* Micromega *) module Micromega_plugin_Micromega = Micromega_plugin.Micromega -module Micromega_plugin_Mutils = Micromega_plugin.Mutils module Micromega_plugin_Certificate = Micromega_plugin.Certificate -module Micromega_plugin_Coq_micromega = Micromega_plugin.Coq_micromega -module Micromega_plugin_Persistent_cache = Micromega_plugin.Persistent_cache let micromega_coq_proofTerm = (* Cannot contain evars *) @@ -181,7 +178,7 @@ let micromega_coq_proofTerm = let micromega_dump_proof_term p = (* Cannot contain evars *) - EConstr.Unsafe.to_constr (Micromega_plugin_Coq_micromega.dump_proof_term p) + EConstr.Unsafe.to_constr (Micromega_plugin.Coq_micromega.dump_proof_term p) (* Tactics *) diff --git a/src/versions/standard/structures.mli b/src/versions/standard/structures.mli index e21a26f..104f3f9 100644 --- a/src/versions/standard/structures.mli +++ b/src/versions/standard/structures.mli @@ -90,10 +90,7 @@ val mkTrace : (* Micromega *) module Micromega_plugin_Micromega = Micromega_plugin.Micromega -module Micromega_plugin_Mutils = Micromega_plugin.Mutils module Micromega_plugin_Certificate = Micromega_plugin.Certificate -module Micromega_plugin_Coq_micromega = Micromega_plugin.Coq_micromega -module Micromega_plugin_Persistent_cache = Micromega_plugin.Persistent_cache val micromega_coq_proofTerm : constr lazy_t val micromega_dump_proof_term : Micromega_plugin_Micromega.zArithProof -> constr |