X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=week4.mdwn;h=4bddeaa6815c7062efcd89ac449732e6d60ecb1d;hp=78e2d37e8a4363b6ebe10e46baa2e0205148ab08;hb=154c7329a8777117debe1f3f8fa2096b5dc7468f;hpb=fbd9eedd63bd8bd3bede53ed6c5f4dbef896d815

diff --git a/week4.mdwn b/week4.mdwn
index 78e2d37e..4bddeaa6 100644
--- a/week4.mdwn
+++ b/week4.mdwn
@@ -119,7 +119,7 @@ fact 2
 ~~> mul 2 ([prefact ((\x. prefact (x x)) (\x. prefact (x x)))] 1)
 ...
 ~~> mul 2 (mul 1 ([prefact ((\x. prefact (x x)) (\x. prefact (x x)))] 0))
-≡ mul 2 (mul 1 (iszero 0 1 ([prefact ((\x. prefact (x x)) (\x. prefact (x x)))] (pred 0))))
+≡ mul 2 (mul 1 (iszero 0 1 (mul 1 ([prefact ((\x. prefact (x x)) (\x. prefact (x x)))] (pred 0)))))
 ~~> mul 2 (mul 1 1)
 ~~> mul 2 1
 ~~> 2