diff options
author | 2011-07-29 14:27:58 +0000 | |
---|---|---|
committer | 2011-07-29 14:27:58 +0000 | |
commit | 222f9323945f10eb6e7ee84331a7bf5a65c5cbff (patch) | |
tree | 787e5f63976336f193f69a3449778f6cd08c8ad9 /plugins/omega | |
parent | 6cf2f61e672f1a0aa6c06589d8b64c7958167a62 (diff) |
Coq_omega: replaced generic = on constr by eq_constr
Util: Added list_assoc_f
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14350 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/omega')
-rw-r--r-- | plugins/omega/coq_omega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index 1d4d57132..721ca30aa 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -147,7 +147,7 @@ let tag_hypothesis,tag_of_hyp, hyp_of_tag = let hide_constr,find_constr,clear_tables,dump_tables = let l = ref ([]:(constr * (identifier * identifier * bool)) list) in (fun h id eg b -> l := (h,(id,eg,b)):: !l), - (fun h -> try List.assoc h !l with Not_found -> failwith "find_contr"), + (fun h -> try list_assoc_f eq_constr h !l with Not_found -> failwith "find_contr"), (fun () -> l := []), (fun () -> !l) |