week4 tweaking

Signed-off-by: Jim Pryor <profjim@jimpryor.net>

diff --git a/week4.mdwn b/week4.mdwn
index 78e2d37..4bddeaa 100644 (file)
--- 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