New function.

[helm.git] / helm / software / components / ng_kernel / nCicUntrusted.ml

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index 771f3070bda456a9ae31c91000bf96b553fc4492..8c827a7598c9ce8b98ef08fd9c5c0a61ae59c5a9 100644 (file)
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -264,6 +264,12 @@ let rec replace_in_metasenv i f = function
   | x::tl -> x :: replace_in_metasenv i f tl
 ;;
           
+let rec replace_in_subst i f = function
+  | [] -> assert false
+  | (j,e)::tl when j=i -> (i,f e) :: tl
+  | x::tl -> x :: replace_in_subst i f tl
+;;
+          
 let set_kind newkind attrs = 
   newkind :: List.filter (fun x -> not (is_kind x)) attrs 
 ;;