diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-01 10:01:09 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-01 10:01:09 +0200 |
| commit | dc234d6d8c615407324ef2be66b5060ac0019395 (patch) | |
| tree | 4c24b951afbc3a2884e9c4452e5e811a47cb22e0 | |
| parent | f48ca6bde2cd2940e0e0051e36953717470f269a (diff) | |
| parent | 7cb4f663876df79e06f72500a0a6df1ad18e8d9a (diff) | |
| download | smtcoq-dc234d6d8c615407324ef2be66b5060ac0019395.tar.gz smtcoq-dc234d6d8c615407324ef2be66b5060ac0019395.zip | |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
| -rw-r--r-- | src/State.v | 2 | ||||
| -rw-r--r-- | src/trace/coqTerms.ml | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/State.v b/src/State.v index 4b0db6d..663b2b3 100644 --- a/src/State.v +++ b/src/State.v @@ -17,7 +17,7 @@ Require Import List Bool Int63 PArray Omega. Local Open Scope int63_scope. Local Open Scope array_scope. -Coercion is_true (x: bool) := x = true. +Coercion is_true : bool >-> Sortclass. Set Vm Optimize. diff --git a/src/trace/coqTerms.ml b/src/trace/coqTerms.ml index a1b6765..ed9b1f7 100644 --- a/src/trace/coqTerms.ml +++ b/src/trace/coqTerms.ml @@ -23,6 +23,9 @@ let ceq63 = gen_constant Structures.int63_modules "eqb" (* PArray *) let carray = gen_constant Structures.parray_modules "array" +(* is_true *) +let cis_true = gen_constant init_modules "is_true" + (* nat *) let cnat = gen_constant Structures.init_modules "nat" let cO = gen_constant Structures.init_modules "O" @@ -266,8 +269,6 @@ let cFiff = gen_constant smt_modules "Fiff" let cFite = gen_constant smt_modules "Fite" let cFbbT = gen_constant smt_modules "FbbT" -let cis_true = gen_constant smt_modules "is_true" - let cvalid_sat_checker = gen_constant [["SMTCoq";"Trace";"Sat_Checker"]] "valid" let cinterp_var_sat_checker = gen_constant [["SMTCoq";"Trace";"Sat_Checker"]] "interp_var" |