From 98b8d8d08116a14b6e4ecc4a5d3dd9800655a633 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Mon, 5 Dec 2005 16:52:56 +0000
Subject: [PATCH] Changed test.tr to run a fibNat test.

---
 transfer/examples/fib.tr  | 2 +-
 transfer/examples/test.tr | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/transfer/examples/fib.tr b/transfer/examples/fib.tr
index 988b5e772..43e533b1f 100644
--- a/transfer/examples/fib.tr
+++ b/transfer/examples/fib.tr
@@ -9,4 +9,4 @@ fib n = fib (n-1) + fib (n-2)
 fibNat : Nat -> Nat
 fibNat Zero = Succ Zero
 fibNat (Succ Zero) = Succ Zero
-fibNat (Succ (Succ n)) = plus (fibNat (Succ n)) (fibNat n)
\ No newline at end of file
+fibNat (Succ (Succ n)) = plus Nat add_Nat (fibNat (Succ n)) (fibNat n)
\ No newline at end of file
diff --git a/transfer/examples/test.tr b/transfer/examples/test.tr
index 7f94788a4..8f08f8431 100644
--- a/transfer/examples/test.tr
+++ b/transfer/examples/test.tr
@@ -1,4 +1,4 @@
-main = let x : Type = case n of
-		n2 -> 2
-		n3 -> 3
-        in f Numeral
\ No newline at end of file
+import nat
+import fib
+
+main = natToInt (fibNat (intToNat 10))
\ No newline at end of file