diff options
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 12 |
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 |