diff options
| -rw-r--r-- | pretyping/tacred.ml | 2 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 8b34b5f8f5..792291d997 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -84,7 +84,7 @@ let destEvalRef c = match kind_of_term c with | Var id -> EvalVar id | Rel n -> EvalRel n | Evar ev -> EvalEvar ev - | _ -> anomaly "Not an evaluable reference" + | _ -> anomaly "Not an unfoldable reference" let reference_opt_value sigma env = function | EvalConst cst -> constant_opt_value env cst diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 09bf068bfc..495aa87fa0 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -213,7 +213,7 @@ let coerce_to_reference env = function let error_not_evaluable s = errorlabstrm "evalref_of_ref" (str "Cannot coerce" ++ spc () ++ s ++ spc () ++ - str "to an evaluable reference") + str "to an unfoldable reference") let coerce_to_evaluable_ref env c = let ev = match c with |