diff options
author | 2010-10-04 17:57:23 +0000 | |
---|---|---|
committer | 2010-10-04 17:57:23 +0000 | |
commit | 162f06f2d580bfcbda9976296e95c6e581c1dc92 (patch) | |
tree | f1c164a5869338b050af731623e4fea8572bb899 /tactics/class_tactics.ml4 | |
parent | e892cdd483eca0c880f338f1e4fd7deecdfc5501 (diff) |
Two [Evd.fold] turned into [Evd.fold_undefined].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13491 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/class_tactics.ml4')
-rw-r--r-- | tactics/class_tactics.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index c86ab581b..04f2a1224 100644 --- a/tactics/class_tactics.ml4 +++ b/tactics/class_tactics.ml4 @@ -197,7 +197,7 @@ let rec catchable = function | e -> Logic.catchable_exception e let nb_empty_evars s = - Evd.fold (fun ev evi acc -> if evi.evar_body = Evar_empty then succ acc else acc) s 0 + Evd.fold_undefined (fun ev evi acc -> succ acc) s 0 let pr_ev evs ev = Printer.pr_constr_env (Goal.V82.env evs ev) (Evarutil.nf_evar evs (Goal.V82.concl evs ev)) @@ -471,8 +471,8 @@ let _ = Typeclasses.solve_instanciation_problem := (fun x y z -> resolve_one_typeclass x ~sigma:y z) let has_undefined p oevd evd = - Evd.fold (fun ev evi has -> has || - (evi.evar_body = Evar_empty && snd (p oevd ev evi))) + Evd.fold_undefined (fun ev evi has -> has || + snd (p oevd ev evi)) evd false let rec merge_deps deps = function |