diff options
| author | coqbot-app[bot] | 2020-12-30 17:45:17 +0000 |
|---|---|---|
| committer | GitHub | 2020-12-30 17:45:17 +0000 |
| commit | d6331216fd8f5e655ab525677ef1e1af634327b5 (patch) | |
| tree | 383aaaf1243605e401703dada18ef5425403967b /plugins/omega | |
| parent | d338a65ce7c4619ecc238c091a409175f5330d8f (diff) | |
| parent | 1be5dccd25d36393a39b5ec28784f4b52c643080 (diff) | |
Merge PR #13321: Move evaluable_global_reference from Names to Tacred.
Reviewed-by: herbelin
Ack-by: ejgallego
Diffstat (limited to 'plugins/omega')
| -rw-r--r-- | plugins/omega/coq_omega.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index 4f7b3fbe74..9d92ffde74 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -354,8 +354,9 @@ let coq_True = gen_constant "core.True.type" let evaluable_ref_of_constr s c = let env = Global.env () in let evd = Evd.from_env env in + let open Tacred in match EConstr.kind evd (Lazy.force c) with - | Const (kn,u) when Tacred.is_evaluable env (EvalConstRef kn) -> + | Const (kn,u) when is_evaluable env (EvalConstRef kn) -> EvalConstRef kn | _ -> anomaly ~label:"Coq_omega" (Pp.str (s^" is not an evaluable constant.")) |