diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-02-03 16:40:36 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-02-03 16:40:36 +0000 |
| commit | 066a11bf31f1155e09e46aefe87096918492b408 (patch) | |
| tree | 4b10e9f393db8b842fd1edfc88725c46398cf76d /contrib/recdef/recdef.ml4 | |
| parent | 7918f11904dd246ed4ae5fdf08977ac893a94301 (diff) | |
+ Adding an error message when the function cannot be defined
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7979 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/recdef/recdef.ml4')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index 32febb6fa..7e62893d5 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -86,7 +86,7 @@ let def_of_const t = (try (match (Global.lookup_constant sp) with {const_body=Some c} -> Declarations.force c |_ -> assert false) - with _ -> assert false) + with _ -> anomaly ("Cannot find constant "^(string_of_id (id_of_label (con_label sp))))) |_ -> assert false let arg_type t = @@ -792,7 +792,7 @@ let start_equation (f:global_reference) (term_f:global_reference) tclTHENLIST [ intros_using x; unfold_constr f; - simplest_case (mkApp (constr_of_reference term_f, Array.of_list (List.map mkVar x))); + simplest_case (mkApp (terminate_constr, Array.of_list (List.map mkVar x))); cont_tactic x] g;; let base_leaf_eq func eqs f_id g = |