diff options
Diffstat (limited to 'program/exp.prim')
| -rw-r--r-- | program/exp.prim | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/program/exp.prim b/program/exp.prim index 3c07ec1..8af7c3f 100644 --- a/program/exp.prim +++ b/program/exp.prim @@ -1,3 +1,3 @@ -let add (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => y; S k => ~(S k)} in +let add (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => y; S k => suc k} in let mul (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => 0; S k => add y k} in \x, y => foldcase y by {Z u => 1; S k => mul x k} |