summaryrefslogtreecommitdiff
path: root/tests/lean/misc-no_nested_borrows
diff options
context:
space:
mode:
authorSon Ho2023-05-16 11:45:43 +0200
committerSon HO2023-06-04 21:54:38 +0200
commitdf4d60b71bcabf9897656d6d74157a4c7d8d539c (patch)
tree3cbf4a825484f962339e78313646cd1f1724192e /tests/lean/misc-no_nested_borrows
parentb1dd8274d7a1cff2b9427e4356b66c4e63fe498c (diff)
Make good progress on generating code for HOL4
Diffstat (limited to 'tests/lean/misc-no_nested_borrows')
-rw-r--r--tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean5
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] -/