diff options
author | Andres Notzli <andres.noetzli@gmail.com> | 2016-08-04 15:12:54 -0700 |
---|---|---|
committer | Andres Notzli <andres.noetzli@gmail.com> | 2016-08-05 10:31:30 -0700 |
commit | 0812bb7f36c454d282be5e9960a9a820e4fbd52c (patch) | |
tree | bf5e3b13026bc007aa57046200974e8bdf17f3db /proofs | |
parent | c82514b57252444df982b35af4809e0fd4635e37 (diff) |
Minor: add/fix comments, remove redundant includes
Diffstat (limited to 'proofs')
-rwxr-xr-x | proofs/signatures/th_arrays.plf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/proofs/signatures/th_arrays.plf b/proofs/signatures/th_arrays.plf index b54a4ed5b..acfbd2f3b 100755 --- a/proofs/signatures/th_arrays.plf +++ b/proofs/signatures/th_arrays.plf @@ -32,6 +32,7 @@ (th_holds (= _ (apply _ _ (apply _ _ (read s1 s2) (apply _ _ (apply _ _ (apply _ _ (write s1 s2) t1) t2) t3)) t2) t3)))))))) +; read( a[i] = b, j ) == read( a, j ) if i != j (declare row (! s1 sort (! s2 sort (! t2 (term s1) @@ -42,6 +43,7 @@ (th_holds (= _ (apply _ _ (apply _ _ (read s1 s2) (apply _ _ (apply _ _ (apply _ _ (write s1 s2) t1) t2) t4)) t3) (apply _ _ (apply _ _ (read s1 s2) t1) t3))))))))))) +; i == j if read( a, j ) != read( a[i] = b, j ) (declare negativerow (! s1 sort (! s2 sort (! t2 (term s1) @@ -60,4 +62,4 @@ (! u1 (! k (term s1) (! u2 (th_holds (or (= _ t1 t2) (not (= _ (apply _ _ (apply _ _ (read s1 s2) t1) k) (apply _ _ (apply _ _ (read s1 s2) t2) k))))) (holds cln))) - (holds cln)))))))
\ No newline at end of file + (holds cln))))))) |