diff --git a/src/PrintBox.ml b/src/PrintBox.ml
index 9c64f24..05f5a23 100644
--- a/src/PrintBox.ml
+++ b/src/PrintBox.ml
@@ -75,10 +75,6 @@ and t = view
 
 let empty = Empty
 
-let is_empty = function
-  | Empty -> true
-  | _ -> false
-
 let[@inline] view (t : t) : view = t
 let[@inline] line_ s = Text { l = [ s ]; style = Style.default }
 
diff --git a/src/PrintBox.mli b/src/PrintBox.mli
index 1936682..1c459e7 100644
--- a/src/PrintBox.mli
+++ b/src/PrintBox.mli
@@ -358,9 +358,6 @@ val asprintf_with_style :
 
 (** {2 Managing Representation Extensions} *)
 
-val is_empty : t -> bool
-(** [is_empty b] is equivalent to [match view b with Empty -> true | _ -> false]. *)
-
 val register_extension : key:string -> domain:(ext -> bool) -> unit
 (** Registers a new representation extension, where [key] is a unique identifier for
     the scope of the extension values, and [domain] delineates that scope.