From 066a11bf31f1155e09e46aefe87096918492b408 Mon Sep 17 00:00:00 2001
From: bertot
Date: Fri, 3 Feb 2006 16:40:36 +0000
Subject: + 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
---
 contrib/recdef/recdef.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4
index 32febb6fa2..7e62893d57 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 =
-- 
cgit v1.2.3