diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/multcase.mli | 15 | ||||
| -rw-r--r-- | pretyping/retyping.mli | 9 |
2 files changed, 24 insertions, 0 deletions
diff --git a/pretyping/multcase.mli b/pretyping/multcase.mli index cab7a15d2f..7819915d95 100644 --- a/pretyping/multcase.mli +++ b/pretyping/multcase.mli @@ -1,2 +1,17 @@ (* $Id$ *) + +open Names +open Term +open Evd +open Environ +open Rawterm +open Evarutil + +(* used by trad.ml *) +val compile_multcase : + (trad_constraint -> unsafe_env -> rawconstr -> unsafe_judgment) + * 'a evar_defs -> trad_constraint -> unsafe_env -> + rawconstr option * rawconstr list * + (identifier list * pattern list * rawconstr) list -> + unsafe_judgment diff --git a/pretyping/retyping.mli b/pretyping/retyping.mli new file mode 100644 index 0000000000..e49171a2ac --- /dev/null +++ b/pretyping/retyping.mli @@ -0,0 +1,9 @@ + +(* $Id$ *) +open Term +open Evd +open Environ + +val get_type_of : unsafe_env -> 'a evar_map -> constr -> constr +val get_sort_of : unsafe_env -> 'a evar_map -> constr -> sorts + |