diff options
| author | herbelin | 2003-09-12 14:45:44 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-12 14:45:44 +0000 |
| commit | 2454a769ef2d020105999252a7851a4bcdeabef1 (patch) | |
| tree | 9a413288d89b1ed007fa4fb1468dea46ef660bac | |
| parent | fc782613c2c30d0b5e80c03582ee5d1dc8b17577 (diff) | |
Déplacement d'un morceau de Declare
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4371 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/class.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 75ab77bf08..45f4a5d1a9 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -112,6 +112,11 @@ let check_arity = function (* try_add_class : cl_typ -> strength option -> bool -> unit *) +let strength_of_cl = function + | CL_CONST kn -> constant_strength (sp_of_global (ConstRef kn)) + | CL_SECVAR sp -> variable_strength sp + | _ -> Global + let try_add_class cl streopt fail_if_exists = if not (class_exists cl) then let p = check_arity cl in |