X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=topics%2F_week5_system_F.mdwn;h=5b2e297c7a8929e9193c36d36375dbc59343bd36;hp=f75370908dfe78fb0f081af4b6cbb074402e27b4;hb=2e1217b17ae7e408c89f52c4f6b43ce69284a342;hpb=9873c23f4967dc8a1dc03bd57a20bf73db1ac721

diff --git a/topics/_week5_system_F.mdwn b/topics/_week5_system_F.mdwn
index f7537090..5b2e297c 100644
--- a/topics/_week5_system_F.mdwn
+++ b/topics/_week5_system_F.mdwn
@@ -122,7 +122,7 @@ relevant evaluator is called "fullpoly"):
     let fst = λx:N.λy:N.x in
     let snd = λx:N.λy:N.y in
     let pair = λx:N.λy:N.λz:N->N->N.z x y in
-    let suc = λn:N.λα.λs:α->α.λz:α.s (n [α] s z) in
+    let suc = λn:N.Λα.λs:α->α.λz:α.s (n [α] s z) in
     let shift = λp:Pair.pair (suc (p fst)) (p fst) in
     let pre = λn:N.n [Pair] shift (pair zero zero) snd in