diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 1 | ||||
| -rw-r--r-- | kernel/evd.ml | 2 | ||||
| -rw-r--r-- | kernel/evd.mli | 2 |
3 files changed, 0 insertions, 5 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index f715e985aa..34261e7355 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -43,7 +43,6 @@ let empty_env = { let universes env = env.env_universes let context env = env.env_context -let metamap env = failwith "Environ.metamap: TODO: unifier metas et VE" (* Construction functions. *) diff --git a/kernel/evd.ml b/kernel/evd.ml index b31f2f6b79..52e1a936eb 100644 --- a/kernel/evd.ml +++ b/kernel/evd.ml @@ -65,6 +65,4 @@ let is_defined sigma ev = let info = map sigma ev in not (info.evar_body = Evar_empty) -let metamap sigma = failwith "metamap : NOT YET IMPLEMENTED" - let evar_hyps ev = get_globals (context ev.evar_env) diff --git a/kernel/evd.mli b/kernel/evd.mli index 62378f921e..2e55f578e9 100644 --- a/kernel/evd.mli +++ b/kernel/evd.mli @@ -48,6 +48,4 @@ val is_evar : 'a evar_map -> evar -> bool val is_defined : 'a evar_map -> evar -> bool -val metamap : 'a evar_map -> (int * constr) list - val evar_hyps : 'a evar_info -> typed_type signature |