diff options
author | Son Ho | 2023-05-16 11:45:43 +0200 |
---|---|---|
committer | Son HO | 2023-06-04 21:54:38 +0200 |
commit | df4d60b71bcabf9897656d6d74157a4c7d8d539c (patch) | |
tree | 3cbf4a825484f962339e78313646cd1f1724192e /tests/lean | |
parent | b1dd8274d7a1cff2b9427e4356b66c4e63fe498c (diff) |
Make good progress on generating code for HOL4
Diffstat (limited to 'tests/lean')
-rw-r--r-- | tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean b/tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean index a73848de..12c7d8f7 100644 --- a/tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean +++ b/tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean @@ -249,8 +249,10 @@ def choose_test_fwd : Result Unit := def test_char_fwd : Result Char := Result.ret 'a' +mutual + /- [no_nested_borrows::NodeElem] -/ -mutual inductive node_elem_t (T : Type) := +inductive node_elem_t (T : Type) := | Cons : tree_t T -> node_elem_t T -> node_elem_t T | Nil : node_elem_t T @@ -258,6 +260,7 @@ mutual inductive node_elem_t (T : Type) := inductive tree_t (T : Type) := | Leaf : T -> tree_t T | Node : T -> node_elem_t T -> tree_t T -> tree_t T + end /- [no_nested_borrows::list_length] -/ |