Cleaning unpolished commit 0dfd0fb7d7 on basic functions about union type.

1 files changed, 0 insertions, 12 deletions

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