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.ml | |
| 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.ml')
| -rwxr-xr-x | pretyping/classops.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index aa5057db8d..03a0da56ac 100755 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -17,7 +17,6 @@ open Nametab open Environ open Libobject open Library -open Declare open Term open Termops open Rawterm @@ -240,11 +239,6 @@ let inductive_class_of ind = fst (class_info (CL_IND ind)) let class_args_of c = snd (decompose_app c) -let strength_of_cl = function - | CL_CONST kn -> constant_strength (sp_of_global (ConstRef kn)) - | CL_SECVAR sp -> variable_strength sp - | _ -> Global - let string_of_class = function | CL_FUN -> if !Options.v7 then "FUNCLASS" else "Funclass" | CL_SORT -> if !Options.v7 then "SORTCLASS" else "Sortclass" |