From d3e3b22ce9cca9e4ca80f75a6bdc4c2df93efb0b Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 12 Jan 2006 11:24:17 +0000
Subject: [PATCH] ignore used to avoid Y warning

---
 helm/ocaml/cic/discrimination_tree.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm/ocaml/cic/discrimination_tree.ml b/helm/ocaml/cic/discrimination_tree.ml
index 0bef85a8c..bab98921d 100644
--- a/helm/ocaml/cic/discrimination_tree.ml
+++ b/helm/ocaml/cic/discrimination_tree.ml
@@ -220,7 +220,7 @@ let remove_index tree equality =
 	    | pos -> List.fold_right (fun i r -> if r = [] then [i+1] else i::r) pos []
 	in
 	  try
-	    let t = subterm_at_pos pos' term in pos'
+	    ignore(subterm_at_pos pos' term ); pos'
 	  with Not_found ->
 	    let pos, _ =
 	      List.fold_right
-- 
2.39.2