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/lfsc/tosmtcoq.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/lfsc/tosmtcoq.ml')
| -rw-r--r-- | src/lfsc/tosmtcoq.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/lfsc/tosmtcoq.ml b/src/lfsc/tosmtcoq.ml index 0395244..f520ba7 100644 --- a/src/lfsc/tosmtcoq.ml +++ b/src/lfsc/tosmtcoq.ml @@ -12,8 +12,6 @@ open SmtAtom open SmtForm -open SmtCertif -open SmtTrace open VeritSyntax open Ast open Builtin @@ -42,7 +40,7 @@ module HT = struct let add h k v = h := M.add k v !h let find h k = M.find k !h let clear h = h := M.empty - let iter f h = M.iter f !h + (* let iter f h = M.iter f !h *) end @@ -499,8 +497,8 @@ let register_clause_id cl id = Hashtbl.add ids_clauses id cl -let register_termclause_id t id = - register_clause_id (to_clause t) id +(* let register_termclause_id t id = + * register_clause_id (to_clause t) id *) let new_clause_id ?(reuse=true) cl = |