diff --git a/typing/parmatch.ml b/typing/parmatch.ml
index 09717e786..57834d3db 100644
--- a/typing/parmatch.ml
+++ b/typing/parmatch.ml
@@ -2139,7 +2139,7 @@ let check_unused pred casel =
                   List.iter
                     (fun p ->
                       Location.prerr_warning
-                        p.pat_loc Warnings.Unused_subpat)
+                        p.pat_loc Warnings.Redundant_subpat)
                     ps
               | Used -> ()
             with Empty | Not_found -> assert false
diff --git a/utils/warnings.ml b/utils/warnings.ml
index af744779e..f8c0b00a2 100644
--- a/utils/warnings.ml
+++ b/utils/warnings.ml
@@ -36,7 +36,7 @@ type t =
   | Missing_record_field_pattern of string  (*  9 *)
   | Non_unit_statement                      (* 10 *)
   | Redundant_case                          (* 11 *)
-  | Unused_subpat                           (* 12 *)
+  | Redundant_subpat                        (* 12 *)
   | Instance_variable_override of string list (* 13 *)
   | Illegal_backslash                       (* 14 *)
   | Implicit_public_methods of string list  (* 15 *)
@@ -113,7 +113,7 @@ let number = function
   | Missing_record_field_pattern _ -> 9
   | Non_unit_statement -> 10
   | Redundant_case -> 11
-  | Unused_subpat -> 12
+  | Redundant_subpat -> 12
   | Instance_variable_override _ -> 13
   | Illegal_backslash -> 14
   | Implicit_public_methods _ -> 15
@@ -209,7 +209,7 @@ let descriptions =
     11, "Redundant case in a pattern matching (unused match case).",
     ["redundant-case"];
     12, "Redundant sub-pattern in a pattern-matching.",
-    ["unused-subpat"];
+    ["redundant-subpat"];
     13, "Instance variable overridden.",
     ["instance-variable-override"];
     14, "Illegal backslash escape in a string constant.",
@@ -615,7 +615,7 @@ let message = function
   | Non_unit_statement ->
       "this expression should have type unit."
   | Redundant_case -> "this match case is unused."
-  | Unused_subpat -> "this sub-pattern is unused."
+  | Redundant_subpat -> "this sub-pattern is unused."
   | Instance_variable_override [lab] ->
       "the instance variable " ^ lab ^ " is overridden.\n" ^
       "The behaviour changed in ocaml 3.10 (previous behaviour was hiding.)"
diff --git a/utils/warnings.mli b/utils/warnings.mli
index 587bca2c1..d7a907255 100644
--- a/utils/warnings.mli
+++ b/utils/warnings.mli
@@ -38,7 +38,7 @@ type t =
   | Missing_record_field_pattern of string  (*  9 *)
   | Non_unit_statement                      (* 10 *)
   | Redundant_case                          (* 11 *)
-  | Unused_subpat                           (* 12 *)
+  | Redundant_subpat                        (* 12 *)
   | Instance_variable_override of string list (* 13 *)
   | Illegal_backslash                       (* 14 *)
   | Implicit_public_methods of string list  (* 15 *)