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 /pretyping | |
| 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 'pretyping')
| -rw-r--r-- | pretyping/reductionops.mli | 1 |
1 files changed, 1 insertions, 0 deletions
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 |