From 21358c7a9d8a2e00fe3abd5ba63ab3e0f5d5119d Mon Sep 17 00:00:00 2001 From: lduboisd Date: Wed, 10 Mar 2021 15:01:40 +0100 Subject: use is_true from standard library --- src/State.v | 2 +- 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" -- cgit