Commit 208a0fb9 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

cleaning up

parent 9c961777
......@@ -40,7 +40,8 @@ module MaxAndSum2
let max_sum (a: array int) (n: int)
requires { n = length a /\ forall i:int. 0 <= i < n -> a[i] >= 0 }
ensures { let (s, m) = result in s = sum a 0 n /\ is_max a 0 n m /\ s <= n * m }
ensures { let (s, m) = result in
s = sum a 0 n /\ is_max a 0 n m /\ s <= n * m }
= let s = ref 0 in
let m = ref 0 in
for i = 0 to n - 1 do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment