diff options
| author | filliatr | 1999-10-19 13:18:30 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-19 13:18:30 +0000 |
| commit | 23545bcf76d5700134eb03ae33d4ba66d1b1b619 (patch) | |
| tree | 8d18e4b928adda3710cfab38d286fb9b9ee305da /kernel/evd.ml | |
| parent | 71d73e9d7f3fd54d5a3264a93c74cd742e3d7de3 (diff) | |
les variables existentielles contiennent maintenant un environnement (type
unsafe_env) et non pas seulement une signature. Le module Evd vient donc apres
le module Environ.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@108 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.ml')
| -rw-r--r-- | kernel/evd.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/evd.ml b/kernel/evd.ml index 270ad1f2e4..b31f2f6b79 100644 --- a/kernel/evd.ml +++ b/kernel/evd.ml @@ -5,6 +5,7 @@ open Util open Names open Term open Sign +open Environ (* The type of mappings for existential variables *) @@ -20,7 +21,7 @@ type evar_body = type 'a evar_info = { evar_concl : constr; - evar_hyps : typed_type signature; + evar_env : unsafe_env; evar_body : evar_body; evar_info : 'a } @@ -41,7 +42,7 @@ let define evd ev body = let oldinfo = map evd ev in let newinfo = { evar_concl = oldinfo.evar_concl; - evar_hyps = oldinfo.evar_hyps; + evar_env = oldinfo.evar_env; evar_body = Evar_defined body; evar_info = oldinfo.evar_info } in @@ -66,3 +67,4 @@ let is_defined sigma ev = let metamap sigma = failwith "metamap : NOT YET IMPLEMENTED" +let evar_hyps ev = get_globals (context ev.evar_env) |