From 451ecf7eb4fbd8ffa2058cdb8bb57e0b25a70b59 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 18 Sep 2012 16:00:57 +0000
Subject: More cleaning in CArray...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15819 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/rewrite.ml4 | 2 +-
 tactics/tactics.ml  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics')

diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4
index fe869c340f..db2abea350 100644
--- a/tactics/rewrite.ml4
+++ b/tactics/rewrite.ml4
@@ -581,7 +581,7 @@ let resolve_subrelation env avoid car rel prf rel' res =
 
 let resolve_morphism env avoid oldt m ?(fnewt=fun x -> x) args args' cstr evars =
   let evars, morph_instance, proj, sigargs, m', args, args' =
-    let first = match (Array.find_i (fun _ b -> b <> None) args') with
+    let first = match (Array.findi (fun _ b -> b <> None) args') with
     | Some i -> i
     | None -> raise (Invalid_argument "resolve_morphism") in
     let morphargs, morphobjs = Array.chop first args in
diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index bdf2ea96d3..a29ab24bac 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -2461,7 +2461,7 @@ let abstract_args gl generalize_vars dep id defined f args =
     let parvars = ids_of_constr ~all:true Idset.empty f' in
       if not (linear parvars args') then true, f, args
       else
-	match Array.find_i (fun i x -> not (isVar x) || is_defined_variable env (destVar x)) args' with
+	match Array.findi (fun i x -> not (isVar x) || is_defined_variable env (destVar x)) args' with
 	| None -> false, f', args'
 	| Some nonvar ->
 	    let before, after = Array.chop nonvar args' in
-- 
cgit v1.2.3