From 5f8ce72b29f4a4620ce46895f2e563b2fd85f24b Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 22 Oct 2013 20:11:20 +0000
Subject: Removing some generic equalities.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16915 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/context.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'kernel/context.ml')

diff --git a/kernel/context.ml b/kernel/context.ml
index 930ab75081..bdc4c067a6 100644
--- a/kernel/context.ml
+++ b/kernel/context.ml
@@ -90,7 +90,8 @@ let rec lookup_named id = function
 let named_context_length = List.length
 let named_context_equal = List.equal eq_named_declaration
 
-let vars_of_named_context = List.map (fun (id,_,_) -> id)
+let vars_of_named_context ctx =
+  List.fold_left (fun accu (id, _, _) -> Id.Set.add id accu) Id.Set.empty ctx
 
 let instance_from_named_context sign =
   let filter = function
-- 
cgit v1.2.3