diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2017-10-03 10:49:12 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2017-10-03 10:49:12 +0200 |
| commit | 041e5eef89b1db909f076494204eda2c20562bb8 (patch) | |
| tree | d666942546d91bde494a31b1e1347dfa46de4ddc /src/trace/smtTrace.ml | |
| parent | c41d405ee2c9e2ab070c69d91feb8441ab570590 (diff) | |
| download | smtcoq-041e5eef89b1db909f076494204eda2c20562bb8.tar.gz smtcoq-041e5eef89b1db909f076494204eda2c20562bb8.zip | |
Compiles with Coq-8.6
Diffstat (limited to 'src/trace/smtTrace.ml')
| -rw-r--r-- | src/trace/smtTrace.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/trace/smtTrace.ml b/src/trace/smtTrace.ml index 74d3170..c372310 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 Coq_micromega.M.coq_proofTerm; Coq_micromega.dump_proof_term f; l|]) d (mklApp cnil [|Lazy.force Coq_micromega.M.coq_proofTerm|]) 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 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 Coq_micromega.M.coq_proofTerm; Coq_micromega.dump_proof_term f; l|]) l (mklApp cnil [|Lazy.force Coq_micromega.M.coq_proofTerm|]) 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 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) -> |