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