diff options
| -rw-r--r-- | pretyping/miscops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/miscops.ml b/pretyping/miscops.ml index 882ebafe1..10129306d 100644 --- a/pretyping/miscops.ml +++ b/pretyping/miscops.ml @@ -56,4 +56,4 @@ let map_red_expr_gen f g h = function | CbvVm occs_o -> CbvVm (Option.map (map_occs (map_union g h)) occs_o) | CbvNative occs_o -> CbvNative (Option.map (map_occs (map_union g h)) occs_o) | Cbn flags -> Cbn (map_flags g flags) - | ExtraRedExpr _ | Red _ | Hnf _ as x -> x + | ExtraRedExpr _ | Red _ | Hnf as x -> x |