diff --git a/src/proto_alpha/lib_protocol/test/integration/operations/test_sc_rollup.ml b/src/proto_alpha/lib_protocol/test/integration/operations/test_sc_rollup.ml
index 39243556fad212734c81e41f42cae540f4bddf29..c2bd4341e7ed16f76cf72981474d93b650db7132 100644
--- a/src/proto_alpha/lib_protocol/test/integration/operations/test_sc_rollup.ml
+++ b/src/proto_alpha/lib_protocol/test/integration/operations/test_sc_rollup.ml
@@ -2684,7 +2684,6 @@ let test_automatically_added_internal_messages () =
       [(level_one_info, level_one, []); (level_two_info, level_two, ["foo"])]
   in
 
-  let level_two = Raw_level.of_int32_exn 2l in
   (* Assert SOL is at position 0. *)
   let sol = Sc_rollup_helpers.make_sol ~inbox_level:level_two in
   let* () =