From df4d60b71bcabf9897656d6d74157a4c7d8d539c Mon Sep 17 00:00:00 2001 From: Son Ho Date: Tue, 16 May 2023 11:45:43 +0200 Subject: Make good progress on generating code for HOL4 --- tests/lean/misc-no_nested_borrows/NoNestedBorrows.lean | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'tests/lean') 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] -/ -- cgit v1.2.3