src/Pure/General/path.ML

--- a/src/Pure/General/path.ML	Fri Jan 17 11:47:47 2025 +0100
+++ b/src/Pure/General/path.ML	Fri Jan 17 11:49:31 2025 +0100
@@ -35,6 +35,8 @@
   val split_ext: T -> T * string
   val drop_ext: T -> T
   val get_ext: T -> string
+  val is_xz: T -> bool
+  val is_zst: T -> bool
   val expand: T -> T
   val file_name: T -> string
   eqtype binding
@@ -217,6 +219,9 @@
 val drop_ext = #1 o split_ext;
 val get_ext = #2 o split_ext;
 
+fun is_xz path = get_ext path = "xz";
+fun is_zst path = get_ext path = "zst";
+
 
 (* expand variables *)