From 12c7b0c3700b487117266bd88ac6648d9996e9d3 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 8 Apr 2002 08:02:49 +0000
Subject: export de la fonction Reductionops.find_conclusion pour l'extraction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2617 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/extraction.ml | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'contrib/extraction/extraction.ml')

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
index e6acb73ab..2c6fb88f6 100644
--- a/contrib/extraction/extraction.ml
+++ b/contrib/extraction/extraction.ml
@@ -144,14 +144,6 @@ let sort_of env c = Retyping.get_sort_family_of env none (strip_outer_cast c)
 
 let is_axiom sp = (Global.lookup_constant sp).const_body = None
 
-(* TODO: Could we export the one inside reductionops *)
-
-let rec find_conclusion env c =
-  let t = whd_betadeltaiota env none c in
-  match kind_of_term t with
-    | Prod (x,t,c0) -> find_conclusion (push_rel (x,None,t) env) c0
-    | t -> t
-	  
 (*s [flag_of_type] transforms a type [t] into a [flag]. 
   Really important function. *)
 
-- 
cgit v1.2.3