X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=hints%2Fassignment_4_hint_3_alternate_1.mdwn;h=ca4f9f5a6daabcccd3602dc735432218bf0b5ec4;hp=b0c067353267929856fd2940a052f169d8f1de34;hb=d6c8426cbbb0f40315cd0b2e9e4f27021d12da66;hpb=809b76fd4dfff7b2a54ebfd84a6f92ac6ae131ee

diff --git a/hints/assignment_4_hint_3_alternate_1.mdwn b/hints/assignment_4_hint_3_alternate_1.mdwn
index b0c06735..ca4f9f5a 100644
--- a/hints/assignment_4_hint_3_alternate_1.mdwn
+++ b/hints/assignment_4_hint_3_alternate_1.mdwn
@@ -44,10 +44,13 @@ Alternate strategy for Y1, Y2
 
 	Or in Y1of3, Y2of3, Y3of3 form:
 
-		let Yv    = \ff.       Y (\v g h.      ff (    v g h) g h)               in
-		let Yw    = \ff gg.    Y (  \w h. (\g. gg (Yv ff g h) g h) (       w h))  in
+		let Yv    = \ff.       Y (\v g h.      ff ( v    g h) g h)                in
+		let Yw    = \ff gg.    Y (  \w h. (\g. gg (Yv ff g h) g h) ( w       h))  in
 		let Y3of3 = \ff gg hh. Y (    \h. (\g. hh (Yv ff g h) g h) (Yw ff gg h))  in
 		let Y2of3 = \ff gg hh.                                      Yw ff gg (Y3of3 ff gg hh)  in
-		let Y1of3 = \ff gg hh.                     Yv ff (Y2of3 ff gg hh) (Y3of3 ff gg hh)  in
+		let Y1of3 = \ff gg hh.                     Yv ff (Y2of3 ff gg hh) (Y3of3 ff gg hh)     in
+		let f = Y1of3 (\f g h. A) (\f g h. B) (\f g h. C)  in
+		let g = Y2of3 (\f g h. A) (\f g h. B) (\f g h. C)  in
+		let h = Y3of3 (\f g h. A) (\f g h. B) (\f g h. C)  in
 		D