diff options
| author | letouzey | 2002-04-08 08:02:49 +0000 |
|---|---|---|
| committer | letouzey | 2002-04-08 08:02:49 +0000 |
| commit | 12c7b0c3700b487117266bd88ac6648d9996e9d3 (patch) | |
| tree | b1b99e3cea3604e2e8b872ec92f6f3907de97dfc | |
| 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
| -rw-r--r-- | contrib/extraction/extraction.ml | 8 | ||||
| -rw-r--r-- | pretyping/reductionops.mli | 1 |
2 files changed, 1 insertions, 8 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index e6acb73ab3..2c6fb88f6b 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. *) diff --git a/pretyping/reductionops.mli b/pretyping/reductionops.mli index c078e1db42..a8d991cae7 100644 --- a/pretyping/reductionops.mli +++ b/pretyping/reductionops.mli @@ -134,6 +134,7 @@ type 'a miota_args = { val reducible_mind_case : constr -> bool val reduce_mind_case : constr miota_args -> constr +val find_conclusion : env -> evar_map -> constr -> (constr,constr) kind_of_term val is_arity : env -> evar_map -> constr -> bool val is_info_type : env -> evar_map -> unsafe_type_judgment -> bool val is_info_arity : env -> evar_map -> constr -> bool |