diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-09 17:46:17 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-09 17:46:17 +0000 |
commit | 3cd1a988f93566579740294c7fafbfc81b174675 (patch) | |
tree | 1f1a4e6865a1c271c668aaab2c04768be34d2519 /pretyping/classops.mli | |
parent | 03941e1ee40758d3e206d3e4463696bf22005d8c (diff) |
Nettoyage coercions et classes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2179 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/classops.mli')
-rw-r--r-- | pretyping/classops.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/classops.mli b/pretyping/classops.mli index b8817ae0e..9f8d0cf85 100644 --- a/pretyping/classops.mli +++ b/pretyping/classops.mli @@ -55,9 +55,9 @@ val class_info : cl_typ -> (cl_index * cl_info_typ) val class_exists : cl_typ -> bool val class_info_from_index : cl_index -> cl_typ * cl_info_typ -(* [constructor_at_head c] returns the head reference of c and its - number of arguments *) -val constructor_at_head : constr -> cl_typ * int +(* [find_class_type c] returns the head reference of c and its + arguments *) +val find_class_type : constr -> cl_typ * constr list (* raises [Not_found] if not convertible to a class *) val class_of : env -> evar_map -> constr -> constr * cl_index |