summaryrefslogtreecommitdiff
path: root/testsuite/compiler/check/abstract-operations/Nat.gf
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/compiler/check/abstract-operations/Nat.gf')
-rw-r--r--testsuite/compiler/check/abstract-operations/Nat.gf13
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/compiler/check/abstract-operations/Nat.gf b/testsuite/compiler/check/abstract-operations/Nat.gf
new file mode 100644
index 000000000..09dc0809a
--- /dev/null
+++ b/testsuite/compiler/check/abstract-operations/Nat.gf
@@ -0,0 +1,13 @@
+abstract Nat = {
+
+cat Nat ;
+data zero : Nat ;
+ succ : Nat -> Nat ;
+
+oper plus : Nat -> Nat -> Nat ;
+def plus zero y = y ;
+ plus (succ x) y = succ (plus x y) ;
+
+oper twice : Nat -> Nat = \x -> plus x x ;
+
+}