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 /toplevel/classes.ml | |
| 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
Diffstat (limited to 'toplevel/classes.ml')
| -rw-r--r-- | toplevel/classes.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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 |