Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
c1a3c3f9
Commit
c1a3c3f9
authored
Jun 24, 2010
by
Jean-Christophe Filliâtre
Browse files
programs: lazy operators
parent
3167cf1f
Changes
1
Hide whitespace changes
Inline
Side-by-side
examples/programs/vacid_0_sparse_array.mlw
View file @
c1a3c3f9
...
...
@@ -109,13 +109,8 @@ let test a i =
let idx = sa_idx !a in
let back = sa_back !a in
let n = sa_n !a in
if 0 <= A.select idx i then
if A.select idx i < n then
A.select back (A.select idx i) = i
else
False
else
False
0 <= A.select idx i && A.select idx i < n &&
A.select back (A.select idx i) = i
{ result=True <-> is_elt !a i }
(*
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment