From a2cc7cc4e0aba3bd60129f4352926f5512cd8bf6 Mon Sep 17 00:00:00 2001
From: jforest
Date: Tue, 14 Mar 2006 19:10:22 +0000
Subject: + Debugging and cleaning functional principle generation tactic + New
 functional induction now calls induction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8627 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/recdef/recdef.ml4 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'contrib/recdef')

diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4
index 5bf0744d58..f973548457 100644
--- a/contrib/recdef/recdef.ml4
+++ b/contrib/recdef/recdef.ml4
@@ -1111,7 +1111,8 @@ let (com_eqn : identifier ->
      Command.save_named true);;
 
 
-let recursive_definition is_mes f type_of_f r rec_arg_num eq generate_induction_principle : unit =
+let recursive_definition is_mes f type_of_f r rec_arg_num eq 
+    generate_induction_principle : unit =
   let function_type = interp_constr Evd.empty (Global.env()) type_of_f in
   let env = push_rel (Name f,None,function_type) (Global.env()) in
   let res_vars,eq' = decompose_prod (interp_constr Evd.empty env eq) in 
-- 
cgit v1.2.3