aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorherbelin2000-03-07 17:07:46 +0000
committerherbelin2000-03-07 17:07:46 +0000
commitae8dc8fe092727fec92454617df2840572237198 (patch)
tree935264f125eaa8c2a3a96409b8adc4d95cfb1153
parent5d75d8d333190048cb730e40c08bd4c454fab4d9 (diff)
Commentaire
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@299 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r--pretyping/classops.mli3
1 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/classops.mli b/pretyping/classops.mli
index fbc6c39fbd..053e93cd43 100644
--- a/pretyping/classops.mli
+++ b/pretyping/classops.mli
@@ -55,7 +55,10 @@ val coercion_info_from_index : int -> coe_typ * coe_info_typ
val coercion_params :
reference -> int (* raise [Not_found] if not a coercion *)
val constructor_at_head : constr -> cl_typ * int
+
+(* raises [Not_found] if not convertible to a class *)
val class_of : env -> 'c evar_map -> constr -> constr * int
+
val class_args_of : constr -> constr list
val inClass : (cl_typ * cl_info_typ) -> obj
val outClass : obj -> (cl_typ * cl_info_typ)