refactoring "Names.DirPath.is_empty" function

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index b91fa758f9..5c10badbec 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -178,7 +178,7 @@ struct
 
   let empty = []
 
-  let is_empty d = match d with [] -> true | _ -> false
+  let is_empty = List.is_empty
 
   let to_string = function
     | [] -> "<>"