diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 03:03:50 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 03:03:50 +0200 |
| commit | 98bf2facf5a61758897d000c4a7d1d6c6c2965fb (patch) | |
| tree | fcb99694bdc0df548398a718676847acdc5436c3 /src/trace/coqTerms.ml | |
| parent | 640bf0dda4a4880aeb525d1460dc91f5041aa626 (diff) | |
| download | smtcoq-98bf2facf5a61758897d000c4a7d1d6c6c2965fb.tar.gz smtcoq-98bf2facf5a61758897d000c4a7d1d6c6c2965fb.zip | |
Holes in proof:
- can now take learned clauses as argument
- returns a whole clause (and not only a literal)
- tested for the vernacular commands
Warning: seems to slow down 8.5 version
Diffstat (limited to 'src/trace/coqTerms.ml')
| -rw-r--r-- | src/trace/coqTerms.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/trace/coqTerms.ml b/src/trace/coqTerms.ml index f2c24b8..a58fcfa 100644 --- a/src/trace/coqTerms.ml +++ b/src/trace/coqTerms.ml @@ -104,6 +104,8 @@ let smt_modules = [ ["SMTCoq";"Misc"]; ["SMTCoq";"SMT_terms";"Atom"] ] +let cState_C_t = gen_constant [["SMTCoq";"State";"C"]] "t" + let cdistinct = gen_constant smt_modules "distinct" let ctype = gen_constant smt_modules "type" |