diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-19 16:56:26 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-19 16:56:26 +0000 |
commit | b0004f8f03eb7d1a050129115cfd79b11873b631 (patch) | |
tree | 8dc93b9cedf08e6ac7c528c0ac27316a9990bb2d /pretyping | |
parent | f83572bc45b9ab6b72688eb22d125896541ccf16 (diff) |
Nouvelle fonction get_sort_family_of pour calculer la famille dans lequel vit un type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2010 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/retyping.mli | 4 |
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 |