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/ssr | |
| 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/ssr')
| -rw-r--r-- | plugins/ssr/ssrequality.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index aeb6b3cf85..0008d31ffd 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -223,11 +223,11 @@ let simplintac occ rdx sim = end let rec get_evalref env sigma c = match EConstr.kind sigma c with - | Var id -> EvalVarRef id - | Const (k,_) -> EvalConstRef k + | Var id -> Tacred.EvalVarRef id + | Const (k,_) -> Tacred.EvalConstRef k | App (c', _) -> get_evalref env sigma c' | Cast (c', _, _) -> get_evalref env sigma c' - | Proj(c,_) -> EvalConstRef(Projection.constant c) + | Proj(c,_) -> Tacred.EvalConstRef(Projection.constant c) | _ -> errorstrm Pp.(str "The term " ++ pr_econstr_pat (Global.env ()) sigma c ++ str " is not unfoldable") (* Strip a pattern generated by a prenex implicit to its constant. *) |