diff options
| author | herbelin | 1999-11-26 21:12:12 +0000 |
|---|---|---|
| committer | herbelin | 1999-11-26 21:12:12 +0000 |
| commit | 96ad76f4a2da61b0283bd10a7246d76eeb9aa70e (patch) | |
| tree | 7f9e01cfc221f4c9bc64c76b044012a166ac8959 | |
| parent | 82667b4dc6d4a34708c2b9a14a940e05ea9044f7 (diff) | |
Version initiale
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@153 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 + |