diff options
| -rw-r--r-- | pretyping/coercion.mli | 5 | ||||
| -rw-r--r-- | pretyping/evarutil.mli | 11 | ||||
| -rw-r--r-- | pretyping/multcase.mli | 5 | ||||
| -rw-r--r-- | pretyping/pretype_errors.mli | 2 |
4 files changed, 17 insertions, 6 deletions
diff --git a/pretyping/coercion.mli b/pretyping/coercion.mli index 2eeafa15b0..3fc8dfb91d 100644 --- a/pretyping/coercion.mli +++ b/pretyping/coercion.mli @@ -1,12 +1,15 @@ -(* $:Id$ *) +(* $Id$ *) +(*i*) open Evd open Term open Sign open Environ open Evarutil +(*i*) +(* Coercions. *) val inh_app_fun : unsafe_env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment diff --git a/pretyping/evarutil.mli b/pretyping/evarutil.mli index c8d6b91acc..3cbf887c57 100644 --- a/pretyping/evarutil.mli +++ b/pretyping/evarutil.mli @@ -1,15 +1,18 @@ -(* This modules provides useful functions for unification algorithms. - * Used in Trad and Progmach - * This interface will have to be improved. - *) +(* $Id$ *) +(*i*) open Names open Term open Sign open Evd open Environ open Reduction +(*i*) + +(* This modules provides useful functions for unification algorithms. + * Used in Trad and Progmach + * This interface will have to be improved. *) val filter_unique : 'a list -> 'a list val distinct_id_list : identifier list -> identifier list diff --git a/pretyping/multcase.mli b/pretyping/multcase.mli index 7819915d95..68e68c1b44 100644 --- a/pretyping/multcase.mli +++ b/pretyping/multcase.mli @@ -1,14 +1,17 @@ (* $Id$ *) +(*i*) open Names open Term open Evd open Environ open Rawterm open Evarutil +(*i*) + +(* Compilation of pattern-matching. *) -(* used by trad.ml *) val compile_multcase : (trad_constraint -> unsafe_env -> rawconstr -> unsafe_judgment) * 'a evar_defs -> trad_constraint -> unsafe_env -> diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli index ac605f196a..4e37b18a75 100644 --- a/pretyping/pretype_errors.mli +++ b/pretyping/pretype_errors.mli @@ -1,6 +1,7 @@ (* $Id$ *) +(*i*) open Pp open Names open Term @@ -8,6 +9,7 @@ open Sign open Environ open Type_errors open Rawterm +(*i*) (* The type of errors raised by the pretyper *) |