diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-30 14:08:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-30 14:08:46 +0000 |
| commit | 9c9ef8b51b41b0b1034339d420f32207199b49c2 (patch) | |
| tree | 6590cec83de8db9163ca0558dbea0744d3c5e91d | |
| parent | b74e66dc5fd78af56e768486fa8e534fd7c07c21 (diff) | |
Terminologie plus intuitive: evaluable -> unfoldable
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5716 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 8b34b5f8f..792291d99 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 09bf068bf..495aa87fa 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 |