diff options
| author | ckeller <ckeller@users.noreply.github.com> | 2019-02-14 20:09:40 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-02-14 20:09:40 +0100 |
| commit | ec41af7ac01cef7c30785e6dd704381f31e7c2d3 (patch) | |
| tree | 13d51483c50d7b5a668d90b8b67a8b99ef0fbe56 /src/trace/smtTrace.ml | |
| parent | ba22fad2fb46962eef5f30d976e9eaeb587023a0 (diff) | |
| download | smtcoq-ec41af7ac01cef7c30785e6dd704381f31e7c2d3.tar.gz smtcoq-ec41af7ac01cef7c30785e6dd704381f31e7c2d3.zip | |
V8.7 (#36)
Port SMTCoq to Coq-8.7
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 b410f88..a9855a2 100644 --- a/src/trace/smtTrace.ml +++ b/src/trace/smtTrace.ml @@ -409,12 +409,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 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 + let c' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Structures.micromega_coq_proofTerm; Structures.micromega_dump_proof_term f; l|]) d (mklApp cnil [|Lazy.force Structures.micromega_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 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 + let l' = List.fold_right (fun f l -> mklApp ccons [|Lazy.force Structures.micromega_coq_proofTerm; Structures.micromega_dump_proof_term f; l|]) l (mklApp cnil [|Lazy.force Structures.micromega_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|] | BBVar res -> mklApp cBBVar [|out_c c; out_f res|] |