let strict_row_length tags =
      List.exists tags (function `strict_about `row_length -> true | _ -> false)