From 5682dd34fce64869a611ba1aee5e1e73b2f2fd0f Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Fri, 25 Jan 2019 14:23:26 +0000
Subject: Coq: add enough to generate some output for arm-v8.5-a Now supports
 mutual recursion, configuration registers (in the same way as Lem), boolean
 constraints (but produces some ugly stuff that the solver can't handle).

---
 test/typecheck/pass/mutrec.sail | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 test/typecheck/pass/mutrec.sail

(limited to 'test')

diff --git a/test/typecheck/pass/mutrec.sail b/test/typecheck/pass/mutrec.sail
new file mode 100644
index 00000000..26dbf729
--- /dev/null
+++ b/test/typecheck/pass/mutrec.sail
@@ -0,0 +1,12 @@
+$include <prelude.sail>
+
+val f : list(int) -> int
+val g : list(int) -> int
+
+function f([| |]) = 0
+and f(h::t) = h + g(t)
+function g([||]) = 0
+and g(h::t) = f(t) - h
+
+val test : unit -> int
+function test() = f([|1,2,3|])
-- 
cgit v1.2.3