diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-26 21:19:41 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-26 21:19:41 +0000 |
commit | 18a9bacd66660b23af059658116db7b812d6db06 (patch) | |
tree | db12259da18e58325063d107e0e61045fec7ea7c /pretyping/coercion.mli | |
parent | 1a2dc1bb8b78b07ea7620b466138f43df6a05aaa (diff) |
Modification pour faire compiler pretyping.ml qui maintenant compile
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@156 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/coercion.mli')
-rw-r--r-- | pretyping/coercion.mli | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/pretyping/coercion.mli b/pretyping/coercion.mli index 6cc815e49..2eeafa15b 100644 --- a/pretyping/coercion.mli +++ b/pretyping/coercion.mli @@ -1,4 +1,6 @@ +(* $:Id$ *) + open Evd open Term open Sign @@ -6,15 +8,18 @@ open Environ open Evarutil -val inh_app_fun : 'a evar_defs -> 'b -> unsafe_judgment -> unsafe_judgment -val inh_tosort_force : 'a evar_defs -> 'b -> unsafe_judgment -> unsafe_judgment -val inh_tosort : 'a evar_defs -> 'b -> unsafe_judgment -> unsafe_judgment -val inh_ass_of_j : 'a evar_defs -> var_context -> +val inh_app_fun : + unsafe_env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment +val inh_tosort_force : + unsafe_env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment +val inh_tosort : + unsafe_env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment +val inh_ass_of_j : unsafe_env -> 'a evar_defs -> unsafe_judgment -> typed_type -val inh_coerce_to : 'a evar_defs -> var_context -> +val inh_coerce_to : unsafe_env -> 'a evar_defs -> constr -> unsafe_judgment -> unsafe_judgment -val inh_cast_rel : 'a evar_defs -> var_context -> +val inh_cast_rel : unsafe_env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment -val inh_apply_rel_list : bool -> 'a evar_defs -> var_context -> +val inh_apply_rel_list : bool -> unsafe_env -> 'a evar_defs -> unsafe_judgment list -> unsafe_judgment -> 'b * ('c * constr option) -> unsafe_judgment |