diff options
| author | herbelin | 2003-09-12 14:41:39 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-12 14:41:39 +0000 |
| commit | 53d23f52cd28c1373e784c278c8455cf9fa4eb67 (patch) | |
| tree | fa4a9d60f052df1f400af1589e568ef0ed11ef45 /pretyping/classops.mli | |
| parent | 893231ce35ba826efe64e4601ae0af32f97ba575 (diff) | |
Déplacement de Declare juste à la fin de interp pour pouvoir accéder à interp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4365 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/classops.mli')
| -rw-r--r-- | pretyping/classops.mli | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/pretyping/classops.mli b/pretyping/classops.mli index aa0cca3dc9..07f1623f83 100644 --- a/pretyping/classops.mli +++ b/pretyping/classops.mli @@ -14,7 +14,6 @@ open Decl_kinds open Term open Evd open Environ -open Declare open Nametab (*i*) @@ -26,6 +25,8 @@ type cl_typ = | CL_CONST of constant | CL_IND of inductive +val subst_cl_typ : substitution -> cl_typ -> cl_typ + (* This is the type of infos for declared classes *) type cl_info_typ = { cl_strength : strength; @@ -66,8 +67,6 @@ val inductive_class_of : inductive -> cl_index val class_args_of : constr -> constr list -val strength_of_cl : cl_typ -> strength - (*s [declare_coercion] adds a coercion in the graph of coercion paths *) val declare_coercion : coe_typ -> unsafe_judgment -> strength -> isid:bool -> |