From 3b3d98acd58e91c960a2e11cd47ac19b2b34f86b Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Fri, 15 Apr 2016 16:28:33 +0200
Subject: Cleaning unpolished commit 0dfd0fb7d7 on basic functions about union
 type.

---
 lib/util.ml | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index cae996e33..009dfbe1c 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -147,22 +147,10 @@ struct
   let fold_left f g a = function
     | Inl y -> f a y
     | Inr y -> g a y
-    | _ -> a
 end
 
 let map_union = Union.map
 
-(** Lifting equality onto union types. *)
-let equal_union f g x y = match x, y with
-  | Inl x, Inl y -> f x y
-  | Inr x, Inr y -> g x y
-  | _, _ -> false
-
-let fold_left_union f g a = function
-  | Inl y -> f a y
-  | Inr y -> g a y
-  | _ -> a
-
 type iexn = Exninfo.iexn
 
 let iraise = Exninfo.iraise
-- 
cgit v1.2.3