diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-26 16:09:40 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-26 16:09:40 +0000 |
| commit | 82667b4dc6d4a34708c2b9a14a940e05ea9044f7 (patch) | |
| tree | f992de7a8469f8a8f0c37c771532101562a9e37f /library/declare.ml | |
| parent | 3d4a8fc16cf415643be2a5707248c1858a307023 (diff) | |
module Classops; ajout de fonctions dans Declare en consequence
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@152 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/declare.ml')
| -rw-r--r-- | library/declare.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/library/declare.ml b/library/declare.ml index 52355a7e2..909895612 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -135,6 +135,14 @@ let declare_mind mie = push_inductive_names sp mie; declare_inductive_implicits sp +(* Test and access functions. *) + +let is_constant sp = failwith "TODO" +let constant_strength sp = failwith "TODO" + +let is_variable id = failwith "TODO" +let variable_strength id = failwith "TODO" + (* Global references. *) let first f v = |