diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
| commit | 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf (patch) | |
| tree | 3c7468e9f0703d9e70b3aea539aaf8a28ec6a0ed /pretyping/coercion.mli | |
| parent | 8cd83fb8dd41521bbc109d37dd49dd3aae0de373 (diff) | |
Suppression des local_constraints, des ctxtty et du focus.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/coercion.mli')
| -rw-r--r-- | pretyping/coercion.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/coercion.mli b/pretyping/coercion.mli index 1c07a7ed3..4ca3ba987 100644 --- a/pretyping/coercion.mli +++ b/pretyping/coercion.mli @@ -22,19 +22,19 @@ open Evarutil inserts a coercion into [j], if needed, in such a way it gets as type a product; it returns [j] if no coercion is applicable *) val inh_app_fun : - env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment + env -> evar_defs -> unsafe_judgment -> unsafe_judgment (* [inh_coerce_to_sort env isevars j] coerces [j] to a type; i.e. it inserts a coercion into [j], if needed, in such a way it gets as type a sort; it fails if no coercion is applicable *) val inh_coerce_to_sort : - env -> 'a evar_defs -> unsafe_judgment -> unsafe_type_judgment + env -> evar_defs -> unsafe_judgment -> unsafe_type_judgment (* [inh_conv_coerce_to loc env isevars j t] coerces [j] to an object of type [t]; i.e. it inserts a coercion into [j], if needed, in such a way [t] and [j.uj_type] are convertible; it fails if no coercion is applicable *) val inh_conv_coerce_to : Rawterm.loc -> - env -> 'a evar_defs -> unsafe_judgment -> constr -> unsafe_judgment + env -> evar_defs -> unsafe_judgment -> constr -> unsafe_judgment (*i (* [inh_apply_rel_list loc env isevars args f tycon] tries to type [(f |