X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=exercises%2Fassignment5_answers.mdwn;h=de9161840fb748f7d0632aa82ccff99d779423a8;hp=05752763e12a7de10b8e45498a65748121b72c71;hb=2d9654c7eb13ddda627147563b2e937c67c7b8e3;hpb=6069fa51d80df8905405413cb6beaf38fd4129d0

diff --git a/exercises/assignment5_answers.mdwn b/exercises/assignment5_answers.mdwn
index 05752763..de916184 100644
--- a/exercises/assignment5_answers.mdwn
+++ b/exercises/assignment5_answers.mdwn
@@ -496,8 +496,15 @@ type `Bool`.
         true ≡ Λα. λy:α. λn:α. y
         false ≡ Λα. λy:α. λn:α. n
         not ≡ λp:Bool. p [Bool] false true
-        and ≡ λp:Bool. λq:Bool. p [Bool] (q [Bool]) false
-        or ≡ λp:Bool. λq:Bool. p [Bool] true (q [Bool])
+        and ≡ λp:Bool. λq:Bool. p [Bool] q false
+        or ≡ λp:Bool. λq:Bool. p [Bool] true q
+
+    When I first wrote up these answers, I had put `(q [Bool])` where I now have just `q` in the body of `and` and `or`. On reflection,
+    this isn't necessary, because `q` is already of that type. But as I learned by checking these answers with Pierce's evaluator, it's
+    also a mistake. What we want is a result whose type is `Bool`, that is, `∀α. α -> α -> α`. `(q [Bool])` doesn't have that type, but
+    rather the type `Bool -> Bool -> Bool`. The first, desired, type has an outermost `∀`. The second, wrong type doesn't; it only has `∀`s
+    inside the antecedents and consequents of the various arrows. The last one of those could be promoted to be an outermost `∀`, since
+    `P -> ∀α. Q ≡ ∀α. P -> Q` when `α` is not free in `P`. But that couldn't be done with the others.
 
 
 The type `Nat` (for "natural number") may be encoded as follows: