diff options
| author | Hugo Herbelin | 2014-11-18 11:02:17 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-11-19 18:52:13 +0100 |
| commit | d846451c9a07b4e051173878a5446edea029bf5b (patch) | |
| tree | 0e8920a1174b268b6268d5615ffa5941bae3daa7 /pretyping/miscops.ml | |
| parent | 36c2559cefb54dc503fea375d15d3224992f6221 (diff) | |
Making map_union a standard function of the ML library.
Diffstat (limited to 'pretyping/miscops.ml')
| -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 3e5f7577bf..882ebafe11 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) |