diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-19 16:06:34 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-19 16:06:34 +0000 |
| commit | c34dfa1d68effbac82592e002b618e61c48999f6 (patch) | |
| tree | 63a4ca6450656b6bf418973a30964a8b69f733e8 /pretyping/coercion.mli | |
| parent | 2d5ca51f2171bc874ba0eedd32e10b55b01aa601 (diff) | |
Nettoyage Coercion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@732 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/coercion.mli')
| -rw-r--r-- | pretyping/coercion.mli | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/pretyping/coercion.mli b/pretyping/coercion.mli index 0969387fb..6c257ab69 100644 --- a/pretyping/coercion.mli +++ b/pretyping/coercion.mli @@ -13,15 +13,10 @@ open Evarutil val inh_app_fun : env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment -val inh_tosort_force : - env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment - -(* [inh_tosort env sigma j] insert a coercion into [j], if needed, in - such a way [t] reduces to a sort; it fails if no coercion is applicable *) -val inh_tosort : - env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment -val inh_ass_of_j : +(* [inh_coerce_to_sort env sigma j] insert 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 (* [inh_conv_coerce_to loc env sigma j t] insert a coercion into [j], |