From 5e6145c871eea1e94566b252b4bfc4cd752f42d5 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 23 Oct 2013 22:17:07 +0000
Subject: cList: set-as-list functions are now with an explicit comparison

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16920 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/clenv.ml   | 2 +-
 proofs/refiner.ml | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index b75c675297..0df882b2b3 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -379,7 +379,7 @@ let clenv_independent clenv =
   List.filter (fun mv -> not (Metaset.mem mv deps)) mvs
 
 let check_bindings bl =
-  match List.duplicates (List.map pi2 bl) with
+  match List.duplicates Pervasives.(=) (List.map pi2 bl) with (* FIXME *)
     | NamedHyp s :: _ ->
 	errorlabstrm ""
 	  (str "The variable " ++ pr_id s ++
diff --git a/proofs/refiner.ml b/proofs/refiner.ml
index 66e251d55c..583fcf5534 100644
--- a/proofs/refiner.ml
+++ b/proofs/refiner.ml
@@ -200,7 +200,10 @@ let tclSHOWHYPS (tac : tactic) (goal: Goal.goal Evd.sigma)
   let hyps:Context.named_context list =
     List.map (fun gl -> pf_hyps { it = gl; sigma=sigma; }) gls in
   let newhyps =
-    List.map (fun hypl -> List.subtract hypl oldhyps) hyps in
+    List.map
+      (fun hypl -> List.subtract Context.eq_named_declaration hypl oldhyps)
+      hyps
+  in
   let emacs_str s =
     if !Flags.print_emacs then s else "" in
   let s = 
-- 
cgit v1.2.3