From 0ecd9e608ced18f70f465c986d6519e8e95b0b6b Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Wed, 20 Nov 2024 15:31:25 +0000 Subject: Improve syntactic sugar. Sugar makes programs nicer to write. --- program/exp.prim | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'program/exp.prim') 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} -- cgit v1.2.3