summaryrefslogtreecommitdiff
path: root/tests/lean/HashmapMain
diff options
context:
space:
mode:
authorSon HO2024-03-08 12:09:09 +0100
committerGitHub2024-03-08 12:09:09 +0100
commitb604bb9935007a1f0e9c7f556f8196f0e14c85ce (patch)
tree700439fbe96ea5980216e06b388e863ed8ac314b /tests/lean/HashmapMain
parent305f916c602457b0a1fa8ce5569c6c0bf26d6f8e (diff)
parenta7452421be018e5d75065e2038f2f50042a80f3c (diff)
Merge pull request #82 from AeneasVerif/son/switch
Improve tuple projections and matches over integers in Lean
Diffstat (limited to '')
-rw-r--r--tests/lean/HashmapMain/Funs.lean12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/lean/HashmapMain/Funs.lean b/tests/lean/HashmapMain/Funs.lean
index ebed2570..31441b4a 100644
--- a/tests/lean/HashmapMain/Funs.lean
+++ b/tests/lean/HashmapMain/Funs.lean
@@ -419,14 +419,14 @@ def hashmap.test1 : Result Unit :=
let hm3 ← hashmap.HashMap.insert U64 hm2 1024#usize 138#u64
let hm4 ← hashmap.HashMap.insert U64 hm3 1056#usize 256#u64
let i ← hashmap.HashMap.get U64 hm4 128#usize
- if not (i = 18#u64)
+ if ¬ (i = 18#u64)
then Result.fail .panic
else
do
let (_, get_mut_back) ← hashmap.HashMap.get_mut U64 hm4 1024#usize
let hm5 ← get_mut_back 56#u64
let i1 ← hashmap.HashMap.get U64 hm5 1024#usize
- if not (i1 = 56#u64)
+ if ¬ (i1 = 56#u64)
then Result.fail .panic
else
do
@@ -434,22 +434,22 @@ def hashmap.test1 : Result Unit :=
match x with
| none => Result.fail .panic
| some x1 =>
- if not (x1 = 56#u64)
+ if ¬ (x1 = 56#u64)
then Result.fail .panic
else
do
let i2 ← hashmap.HashMap.get U64 hm6 0#usize
- if not (i2 = 42#u64)
+ if ¬ (i2 = 42#u64)
then Result.fail .panic
else
do
let i3 ← hashmap.HashMap.get U64 hm6 128#usize
- if not (i3 = 18#u64)
+ if ¬ (i3 = 18#u64)
then Result.fail .panic
else
do
let i4 ← hashmap.HashMap.get U64 hm6 1056#usize
- if not (i4 = 256#u64)
+ if ¬ (i4 = 256#u64)
then Result.fail .panic
else Result.ret ()