diff options
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) |