From 52e74e66ea28cb6bcccb04dcd843036736d8c1bd Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 17 Mar 2009 21:07:50 +0000
Subject: Uniformizing Tacticals, continued (allClauses -> allHypsAndConcl)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11990 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/funind/g_indfun.ml4 | 2 +-
 contrib/funind/indfun.ml    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib')

diff --git a/contrib/funind/g_indfun.ml4 b/contrib/funind/g_indfun.ml4
index a79b46d96b..28fec2e981 100644
--- a/contrib/funind/g_indfun.ml4
+++ b/contrib/funind/g_indfun.ml4
@@ -356,7 +356,7 @@ let mkEq typ c1 c2 =
 let poseq_unsafe idunsafe cstr gl =
   let typ = Tacmach.pf_type_of gl cstr in
   tclTHEN
-    (Tactics.letin_tac None (Name idunsafe) cstr None allClauses)
+    (Tactics.letin_tac None (Name idunsafe) cstr None allHypsAndConcl)
     (tclTHENFIRST 
       (Tactics.assert_tac Anonymous (mkEq typ (mkVar idunsafe) cstr)) 
       Tactics.reflexivity)
diff --git a/contrib/funind/indfun.ml b/contrib/funind/indfun.ml
index a78746d293..348a17b11b 100644
--- a/contrib/funind/indfun.ml
+++ b/contrib/funind/indfun.ml
@@ -111,7 +111,7 @@ let functional_induction with_clean c princl pat =
 	in
 	Tacticals.tclTHEN
 	  (Tacticals.tclMAP (fun id -> Tacticals.tclTRY (Equality.subst [id])) idl )
-	  (Hiddentac.h_reduce flag Tacticals.allClauses)	
+	  (Hiddentac.h_reduce flag Tacticals.allHypsAndConcl)	
 	  g
       else Tacticals.tclIDTAC g 
 	
-- 
cgit v1.2.3