From a3a5711d8c2f9f0e12ed707c8b69c828e30bbcf4 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 24 Oct 2013 09:41:19 +0000
Subject: Turn many List.assoc into List.assoc_f

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16925 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/closure.ml   | 2 +-
 checker/inductive.ml | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'checker')

diff --git a/checker/closure.ml b/checker/closure.ml
index 38527249ce..4500d371c9 100644
--- a/checker/closure.ml
+++ b/checker/closure.ml
@@ -180,7 +180,7 @@ let ref_value_cache info ref =
     let body =
       match ref with
 	| RelKey n ->
-	    let (s,l) = info.i_rels in lift n (List.assoc (s-n) l)
+	    let (s,l) = info.i_rels in lift n (List.assoc_f Int.equal (s-n) l)
 	| VarKey id -> raise Not_found
 	| ConstKey cst -> constant_value info.i_env cst
     in
diff --git a/checker/inductive.ml b/checker/inductive.ml
index 2dd76c4d35..e2c7f30ab8 100644
--- a/checker/inductive.ml
+++ b/checker/inductive.ml
@@ -125,7 +125,9 @@ let sort_as_univ = function
 | Prop Pos -> type0_univ
 
 let cons_subst u su subst =
-  try (u, sup su (List.assoc u subst)) :: List.remove_assoc u subst
+  try
+    (u, sup su (List.assoc_f Universe.equal u subst)) ::
+      List.remove_assoc_f Universe.equal u subst
   with Not_found -> (u, su) :: subst
 
 let actualize_decl_level env lev t =
-- 
cgit v1.2.3