diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2017-10-03 11:20:59 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2017-10-03 11:20:59 +0200 |
commit | 48e123caddd6a4c4edd60d8f39b78a5421418f40 (patch) | |
tree | 983e804bacb76874c1f10f8f5319b21517f751bc /src/trace | |
parent | ca5213e2a653640cab6d98c1b0e799262b6be33d (diff) | |
download | smtcoq-48e123caddd6a4c4edd60d8f39b78a5421418f40.tar.gz smtcoq-48e123caddd6a4c4edd60d8f39b78a5421418f40.zip |
Compiles with both versions of Coq
Diffstat (limited to 'src/trace')
-rw-r--r-- | src/trace/smtCertif.ml | 4 | ||||
-rw-r--r-- | src/trace/smtTrace.ml | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/trace/smtCertif.ml b/src/trace/smtCertif.ml index 868a311..e4ed262 100644 --- a/src/trace/smtCertif.ml +++ b/src/trace/smtCertif.ml @@ -99,11 +99,11 @@ type 'hform rule = *) (* Linear arithmetic *) - | LiaMicromega of 'hform list * Micromega_plugin.Certificate.Mc.zArithProof list + | LiaMicromega of 'hform list * Structures.Micromega_plugin_Certificate.Mc.zArithProof list | LiaDiseq of 'hform (* Arithmetic simplifications *) - | SplArith of 'hform clause * 'hform * Micromega_plugin.Certificate.Mc.zArithProof list + | SplArith of 'hform clause * 'hform * Structures.Micromega_plugin_Certificate.Mc.zArithProof list (* Elimination of operators *) | SplDistinctElim of 'hform clause * 'hform diff --git a/src/trace/smtTrace.ml b/src/trace/smtTrace.ml index c372310..4815a77 100644 --- a/src/trace/smtTrace.ml +++ b/src/trace/smtTrace.ml @@ -324,12 +324,12 @@ let to_coq to_lit interp (cstep, mklApp cEqCgrP [|out_c c; out_f f1; out_f f2; res|] | LiaMicromega (cl,d) -> let cl' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force cint; out_f f; l|]) cl (mklApp cnil [|Lazy.force cint|]) in - let c' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Micromega_plugin.Coq_micromega.M.coq_proofTerm; Micromega_plugin.Coq_micromega.dump_proof_term f; l|]) d (mklApp cnil [|Lazy.force Micromega_plugin.Coq_micromega.M.coq_proofTerm|]) in + let c' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Structures.Micromega_plugin_Coq_micromega.M.coq_proofTerm; Structures.Micromega_plugin_Coq_micromega.dump_proof_term f; l|]) d (mklApp cnil [|Lazy.force Structures.Micromega_plugin_Coq_micromega.M.coq_proofTerm|]) in mklApp cLiaMicromega [|out_c c; cl'; c'|] | LiaDiseq l -> mklApp cLiaDiseq [|out_c c; out_f l|] | SplArith (orig,res,l) -> let res' = out_f res in - let l' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Micromega_plugin.Coq_micromega.M.coq_proofTerm; Micromega_plugin.Coq_micromega.dump_proof_term f; l|]) l (mklApp cnil [|Lazy.force Micromega_plugin.Coq_micromega.M.coq_proofTerm|]) in + let l' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Structures.Micromega_plugin_Coq_micromega.M.coq_proofTerm; Structures.Micromega_plugin_Coq_micromega.dump_proof_term f; l|]) l (mklApp cnil [|Lazy.force Structures.Micromega_plugin_Coq_micromega.M.coq_proofTerm|]) in mklApp cSplArith [|out_c c; out_c orig; res'; l'|] | SplDistinctElim (c',f) -> mklApp cSplDistinctElim [|out_c c;out_c c'; out_f f|] | Hole (prem_id, concl) -> |