diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-04-08 08:02:49 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-04-08 08:02:49 +0000 |
| commit | 12c7b0c3700b487117266bd88ac6648d9996e9d3 (patch) | |
| tree | b1b99e3cea3604e2e8b872ec92f6f3907de97dfc /contrib | |
| parent | 00d0ae561f738b19cfef14ce94cc056206e9c1bc (diff) | |
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
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/extraction/extraction.ml | 8 |
1 files changed, 0 insertions, 8 deletions
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. *) |