summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/coq/array/Array_Funs.v4
-rw-r--r--tests/fstar/array/Array.Funs.fst4
-rw-r--r--tests/lean/Array/Funs.lean4
3 files changed, 12 insertions, 0 deletions
diff --git a/tests/coq/array/Array_Funs.v b/tests/coq/array/Array_Funs.v
index 6d791873..d47e4633 100644
--- a/tests/coq/array/Array_Funs.v
+++ b/tests/coq/array/Array_Funs.v
@@ -183,6 +183,10 @@ Definition index_index_array_fwd
array_index_shared u32 32%usize a j
.
+(** [array::const_gen_ret]: forward function *)
+Definition const_gen_ret_fwd (N : usize) : result usize :=
+ Return N.
+
(** [array::update_update_array]: forward function *)
Definition update_update_array_fwd
(s : array (array u32 32%usize) 32%usize) (i : usize) (j : usize) :
diff --git a/tests/fstar/array/Array.Funs.fst b/tests/fstar/array/Array.Funs.fst
index 7c1d0b09..72163585 100644
--- a/tests/fstar/array/Array.Funs.fst
+++ b/tests/fstar/array/Array.Funs.fst
@@ -139,6 +139,10 @@ let index_index_array_fwd
let* a = array_index_shared (array u32 32) 32 s i in
array_index_shared u32 32 a j
+(** [array::const_gen_ret]: forward function *)
+let const_gen_ret_fwd (n : usize) : result usize =
+ Return n
+
(** [array::update_update_array]: forward function *)
let update_update_array_fwd
(s : array (array u32 32) 32) (i : usize) (j : usize) : result unit =
diff --git a/tests/lean/Array/Funs.lean b/tests/lean/Array/Funs.lean
index ad737dca..8d10c660 100644
--- a/tests/lean/Array/Funs.lean
+++ b/tests/lean/Array/Funs.lean
@@ -166,6 +166,10 @@ def index_index_array
Array.index_shared (Array U32 (Usize.ofInt 32)) (Usize.ofInt 32) s i
Array.index_shared U32 (Usize.ofInt 32) a j
+/- [array::const_gen_ret]: forward function -/
+def const_gen_ret (N : Usize) : Result Usize :=
+ Result.ret N
+
/- [array::update_update_array]: forward function -/
def update_update_array
(s : Array (Array U32 (Usize.ofInt 32)) (Usize.ofInt 32)) (i : Usize)