diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:09:46 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:09:46 +0200 |
commit | d2585fac6defa17889a0244556b6822fc0c3cb4e (patch) | |
tree | ca0f10fb4be4caadc348670b0fde3ddd49d19cd9 /src/trace | |
parent | 7ce6bf4f7740de4c69877ec9179520bcaa0d014c (diff) | |
parent | 1f21e1f95d43f5e76e38e1737de9a2a0322fd71c (diff) | |
download | smtcoq-d2585fac6defa17889a0244556b6822fc0c3cb4e.tar.gz smtcoq-d2585fac6defa17889a0244556b6822fc0c3cb4e.zip |
Merge remote-tracking branch 'origin/coq-8.12' into coq-8.13
Diffstat (limited to 'src/trace')
-rw-r--r-- | src/trace/coqInterface.ml | 1 | ||||
-rw-r--r-- | src/trace/coqInterface.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/trace/coqInterface.ml b/src/trace/coqInterface.ml index f33f091..b139d3e 100644 --- a/src/trace/coqInterface.ml +++ b/src/trace/coqInterface.ml @@ -150,6 +150,7 @@ let set_evars_tac noc = (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr let error s = CErrors.user_err (Pp.str s) +let anomaly s = CErrors.anomaly (Pp.str s) let warning n s = CWarnings.create ~name:n ~category:"SMTCoq plugin" Pp.str s let destruct_rel_decl r = Context.Rel.Declaration.get_name r, diff --git a/src/trace/coqInterface.mli b/src/trace/coqInterface.mli index af34d87..f4fff30 100644 --- a/src/trace/coqInterface.mli +++ b/src/trace/coqInterface.mli @@ -98,6 +98,7 @@ val set_evars_tac : constr -> tactic (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr val error : string -> 'a +val anomaly : string -> 'a val warning : string -> string -> unit val destruct_rel_decl : (constr, types) Context.Rel.Declaration.pt -> name * types val interp_constr : Environ.env -> Evd.evar_map -> constr_expr -> constr |