diff options
author | 2009-07-07 14:56:02 +0000 | |
---|---|---|
committer | 2009-07-07 14:56:02 +0000 | |
commit | cd2cec34d3508e147a636a040321ac73f3273011 (patch) | |
tree | c004d879593c5eb22bb91e9af2515e7c8bea746d /tactics/class_tactics.ml4 | |
parent | 8c1884146772bdcf505f9efe820c440bafe75acf (diff) |
Jolification : tentative de supprimer les "( evd)" et associés qui
traînaient un peu partout dans le code depuis la fusion d'evar_map et
evar_defs. Début du travail d'uniformisation des noms donnés aux
evar_defs à travers le code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12224 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/class_tactics.ml4')
-rw-r--r-- | tactics/class_tactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index 1163547bf..6baedb76a 100644 --- a/tactics/class_tactics.ml4 +++ b/tactics/class_tactics.ml4 @@ -408,7 +408,7 @@ let has_undefined p oevd evd = Evd.fold (fun ev evi has -> has || (evi.evar_body = Evar_empty && p ev evi && (try Typeclasses.is_resolvable (Evd.find oevd ev) with _ -> true))) - ( evd) false + evd false let rec merge_deps deps = function | [] -> [deps] |