diff options
author | 2014-11-18 11:02:17 +0100 | |
---|---|---|
committer | 2014-11-19 18:52:13 +0100 | |
commit | d846451c9a07b4e051173878a5446edea029bf5b (patch) | |
tree | 0e8920a1174b268b6268d5615ffa5941bae3daa7 /pretyping | |
parent | 36c2559cefb54dc503fea375d15d3224992f6221 (diff) |
Making map_union a standard function of the ML library.
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/miscops.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/pretyping/miscops.ml b/pretyping/miscops.ml index 3e5f7577b..882ebafe1 100644 --- a/pretyping/miscops.ml +++ b/pretyping/miscops.ml @@ -46,10 +46,6 @@ let map_flags f flags = let map_occs f (occ,e) = (occ,f e) -let map_union f g = function - | Inl a -> Inl (f a) - | Inr b -> Inr (g b) - let map_red_expr_gen f g h = function | Fold l -> Fold (List.map f l) | Pattern occs_l -> Pattern (List.map (map_occs f) occs_l) |