Add a warning on binary search

assets/why3/binary_search.mlw

@@ -17,7 +17,6 @@ module BinarySearch
     ensures  { forall i: int. 0 <= i < result -> a[i] < v }
     ensures  { result < length a -> a[result] >= v }
   =
-    let l = ref (-1) in
+    (* IMPORTANT: DON'T MODIFY THE ABOVE LINES *)
-    let u = ref (length a) in
+    0 (* TODO *)
-    !u - !l (* TODO *)
 end