aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/retyping.mli
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping/retyping.mli')
-rw-r--r--pretyping/retyping.mli4
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/retyping.mli b/pretyping/retyping.mli
index 2e32601d9..c8ef3d2e5 100644
--- a/pretyping/retyping.mli
+++ b/pretyping/retyping.mli
@@ -24,8 +24,10 @@ open Environ
type metamap = (int * constr) list
val get_type_of : env -> 'a evar_map -> constr -> constr
+val get_sort_of : env -> 'a evar_map -> types -> sorts
+val get_sort_family_of : env -> 'a evar_map -> types -> sorts_family
+
val get_type_of_with_meta : env -> 'a evar_map -> metamap -> constr -> constr
-val get_sort_of : env -> 'a evar_map -> constr -> sorts
(* Makes an assumption from a constr *)
val get_assumption_of : env -> 'a evar_map -> constr -> types