diff options
| author | Son Ho | 2024-06-05 11:17:37 +0200 |
|---|---|---|
| committer | Son Ho | 2024-06-05 11:17:37 +0200 |
| commit | 967c1aa8bd47e76905baeda5b9d41167af664942 (patch) | |
| tree | 2f8b8bd9d6ddef3e56d3c840690e94d9322a963a /tests/coq/arrays | |
| parent | 7e50cacd736fc85930bd22689fb7e2b61ddda794 (diff) | |
| parent | c708fc2556806abc95cd2ca173a94a5fb49d034d (diff) | |
Merge branch 'main' into son/clean-synthesis
Diffstat (limited to 'tests/coq/arrays')
| -rw-r--r-- | tests/coq/arrays/Arrays.v | 2 | ||||
| -rw-r--r-- | tests/coq/arrays/_CoqProject | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/coq/arrays/Arrays.v b/tests/coq/arrays/Arrays.v index 6e4ab188..5ff17341 100644 --- a/tests/coq/arrays/Arrays.v +++ b/tests/coq/arrays/Arrays.v @@ -426,7 +426,7 @@ Fixpoint sum2_loop Definition sum2 (n : nat) (s : slice u32) (s2 : slice u32) : result u32 := let i := slice_len u32 s in let i1 := slice_len u32 s2 in - if negb (i s= i1) then Fail_ Failure else sum2_loop n s s2 0%u32 0%usize + if i s= i1 then sum2_loop n s s2 0%u32 0%usize else Fail_ Failure . (** [arrays::f0]: diff --git a/tests/coq/arrays/_CoqProject b/tests/coq/arrays/_CoqProject index a4e82408..4ccc7663 100644 --- a/tests/coq/arrays/_CoqProject +++ b/tests/coq/arrays/_CoqProject @@ -3,5 +3,5 @@ -arg -w -arg all -Arrays.v +Arrays.v Primitives.v |