diff options
| author | ppedrot | 2013-10-28 13:32:26 +0000 |
|---|---|---|
| committer | ppedrot | 2013-10-28 13:32:26 +0000 |
| commit | e2f74e1febf60aaae104ef077e40985b4cf19f5f (patch) | |
| tree | 4b8c36ccbefc109ae848c1b0b5c766dd1c54882c | |
| parent | 257e3a047456f579b4d3ed8e115aa5e891a1cd5c (diff) | |
Removing Evd.undefined_evars.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16942 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evd.ml | 2 | ||||
| -rw-r--r-- | pretyping/evd.mli | 3 | ||||
| -rw-r--r-- | toplevel/classes.ml | 3 |
3 files changed, 1 insertions, 7 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 189408a981..f2380e17f0 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -357,8 +357,6 @@ let to_list d = let undefined_map d = d.undf_evars -let undefined_evars d = { d with defn_evars = EvMap.empty } - (* spiwack: not clear what folding over an evar_map, for now we shall simply fold over the inner evar_map. *) let fold f d a = diff --git a/pretyping/evd.mli b/pretyping/evd.mli index 17e9dedafa..ec16f53b76 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -229,9 +229,6 @@ val evars_reset_evd : ?with_conv_pbs:bool -> evar_map -> evar_map -> evar_map (** {6 Misc} *) -val undefined_evars : evar_map -> evar_map -(** TODO: see where we can replace those functions by their [_map] variant. *) - val evar_declare : named_context_val -> evar -> types -> ?src:Loc.t * Evar_kinds.t -> ?filter:Filter.t -> ?candidates:constr list -> evar_map -> evar_map diff --git a/toplevel/classes.ml b/toplevel/classes.ml index c460e291c7..2648f8e362 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -271,8 +271,7 @@ let new_instance ?(abstract=false) ?(global=false) ctx (instid, bk, cl) props in let term = Option.map (Evarutil.nf_evar !evars) term in let evm = Evarutil.nf_evar_map_undefined !evars in - let evm = undefined_evars evm in - if Evd.is_empty evm && not (Option.is_empty term) then + if not (Evd.has_undefined evm) && not (Option.is_empty term) then declare_instance_constant k pri global imps ?hook id (Option.get term,Declareops.no_seff) termtype else begin |