From 61ccbc81a2f3b4662ed4a2bad9d07d2003dda3a2 Mon Sep 17 00:00:00 2001
From: glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 17 Sep 2009 15:58:14 +0000
Subject: Delete trailing whitespaces in all *.{v,ml*} files

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12337 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/btermdn.ml | 54 +++++++++++++++++++++++++++---------------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

(limited to 'tactics/btermdn.ml')

diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml
index 379949f46..b409fc9b8 100644
--- a/tactics/btermdn.ml
+++ b/tactics/btermdn.ml
@@ -19,18 +19,18 @@ open Libnames
    Eduardo (5/8/97). *)
 
 let dnet_depth = ref 8
-		   
+
 let bounded_constr_pat_discr_st st (t,depth) =
-  if depth = 0 then 
-    None 
+  if depth = 0 then
+    None
   else
     match constr_pat_discr_st st t with
       | None -> None
       | Some (c,l) -> Some(c,List.map (fun c -> (c,depth-1)) l)
-	    
+
 let bounded_constr_val_discr_st st (t,depth) =
-  if depth = 0 then 
-    Dn.Nothing 
+  if depth = 0 then
+    Dn.Nothing
   else
     match constr_val_discr_st st t with
       | Dn.Label (c,l) -> Dn.Label(c,List.map (fun c -> (c,depth-1)) l)
@@ -38,16 +38,16 @@ let bounded_constr_val_discr_st st (t,depth) =
       | Dn.Everything -> Dn.Everything
 
 let bounded_constr_pat_discr (t,depth) =
-  if depth = 0 then 
-    None 
+  if depth = 0 then
+    None
   else
     match constr_pat_discr t with
       | None -> None
       | Some (c,l) -> Some(c,List.map (fun c -> (c,depth-1)) l)
-	    
+
 let bounded_constr_val_discr (t,depth) =
-  if depth = 0 then 
-    Dn.Nothing 
+  if depth = 0 then
+    Dn.Nothing
   else
     match constr_val_discr t with
       | Dn.Label (c,l) -> Dn.Label(c,List.map (fun c -> (c,depth-1)) l)
@@ -55,35 +55,35 @@ let bounded_constr_val_discr (t,depth) =
       | Dn.Everything -> Dn.Everything
 
 type 'a t = (global_reference,constr_pattern * int,'a) Dn.t
-  
+
 let create = Dn.create
-  
+
 let add = function
-  | None -> 
-      (fun dn (c,v) -> 
+  | None ->
+      (fun dn (c,v) ->
 	Dn.add dn bounded_constr_pat_discr ((c,!dnet_depth),v))
-  | Some st -> 
-      (fun dn (c,v) -> 
+  | Some st ->
+      (fun dn (c,v) ->
 	Dn.add dn (bounded_constr_pat_discr_st st) ((c,!dnet_depth),v))
 
 let rmv = function
-  | None -> 
-      (fun dn (c,v) -> 
+  | None ->
+      (fun dn (c,v) ->
 	Dn.rmv dn bounded_constr_pat_discr ((c,!dnet_depth),v))
-  | Some st -> 
-      (fun dn (c,v) -> 
+  | Some st ->
+      (fun dn (c,v) ->
 	Dn.rmv dn (bounded_constr_pat_discr_st st) ((c,!dnet_depth),v))
 
 let lookup = function
-  | None -> 
+  | None ->
       (fun dn t ->
-	List.map 
-	  (fun ((c,_),v) -> (c,v)) 
+	List.map
+	  (fun ((c,_),v) -> (c,v))
 	  (Dn.lookup dn bounded_constr_val_discr (t,!dnet_depth)))
-  | Some st -> 
+  | Some st ->
       (fun dn t ->
-	List.map 
-	  (fun ((c,_),v) -> (c,v)) 
+	List.map
+	  (fun ((c,_),v) -> (c,v))
 	  (Dn.lookup dn (bounded_constr_val_discr_st st) (t,!dnet_depth)))
 
 let app f dn = Dn.app (fun ((c,_),v) -> f(c,v)) dn
-- 
cgit v1.2.3