diff options
| author | filliatr | 1999-10-18 13:51:32 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-18 13:51:32 +0000 |
| commit | 154f0fc69c79383cc75795554eb7e0256c8299d8 (patch) | |
| tree | d39ed1dbe4d0c555a8373592162eee3043583a1a /library | |
| parent | 22e4ceb13d18c8b941f6a27cc83f547dd90104b8 (diff) | |
- déplacement (encore une fois !) des variables existentielles : elles sont
toujours dans le noyau (en ce sens que Reduction et Typeops les
connaissent) mais dans un argument supplémentaire A COTE de l'environnement
(de type unsafe_env)
- Indtypes et Typing n'utilisent strictement que Evd.empty
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@106 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/declare.ml | 4 | ||||
| -rw-r--r-- | library/declare.mli | 4 | ||||
| -rw-r--r-- | library/impargs.ml | 2 |
3 files changed, 9 insertions, 1 deletions
diff --git a/library/declare.ml b/library/declare.ml index cb5ec1b40d..64445cf5e2 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -12,6 +12,10 @@ open Libobject open Lib open Impargs +type strength = + | DischargeAt of section_path + | NeverDischarge + (* Variables. *) let cache_variable (_,obj) = diff --git a/library/declare.mli b/library/declare.mli index f7a0fa0884..41d1e14d3f 100644 --- a/library/declare.mli +++ b/library/declare.mli @@ -15,6 +15,10 @@ open Inductive reset works properly --- and will fill some global tables as [Nametab] and [Impargs]. *) +type strength = + | DischargeAt of section_path + | NeverDischarge + val declare_variable : identifier -> constr -> unit val declare_parameter : identifier -> constr -> unit diff --git a/library/impargs.ml b/library/impargs.ml index 0aa2692134..61a2c8b1a0 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -19,7 +19,7 @@ let implicit_args = ref false let auto_implicits ty = if !implicit_args then let genv = unsafe_env_of_env (Global.env()) in - Impl_auto (poly_args genv ty) + Impl_auto (poly_args genv Evd.empty ty) else No_impl |