diff options
| author | lduboisd <lduboisd@inria.fr> | 2021-03-10 15:01:40 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-01 08:09:17 +0200 |
| commit | 21358c7a9d8a2e00fe3abd5ba63ab3e0f5d5119d (patch) | |
| tree | 49533d4069bb119353e58d93057d9cdb9f2a2969 | |
| parent | 3fc84368a0e957dac5574f699fb61fbe6bf049d7 (diff) | |
| download | smtcoq-21358c7a9d8a2e00fe3abd5ba63ab3e0f5d5119d.tar.gz smtcoq-21358c7a9d8a2e00fe3abd5ba63ab3e0f5d5119d.zip | |
use is_true from standard library
| -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 ad5ec1d..1f07140 100644 --- a/src/trace/coqTerms.ml +++ b/src/trace/coqTerms.ml @@ -24,6 +24,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 Structures.init_modules "is_true" + (* nat *) let cnat = gen_constant init_modules "nat" let cO = gen_constant init_modules "O" @@ -267,8 +270,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" |