Fix bad inference on case expression, and make pretty for report

sample-programs/basic-6.crf

@@ -2,7 +2,14 @@ data Bool () where
     True  : Bool ()
     False : Bool ()
 
-main : Bool () -> a -> Int
-main b = case b of
-    False => (\x. 1)
-    True  => (\x. 0)
+-- Both valid
+-- f : Bool () -> a -> Int
+f : Bool () -> (forall a. a -> Int)
+f b = case b of
+    False => (\x. 0 : forall a. a -> Int)
+    True  => (\x. 1 : forall a. a -> Int)
+
+
+main : Int
+main = (f True) 'h'
+

sample-programs/basic-7.crf

@@ -2,7 +2,7 @@ data Bool () where
     True  : Bool ()
     False : Bool ()
 
-ifThenElse : forall a. Bool () -> a -> a -> a
+ifThenElse : Bool () -> a -> a -> a
 ifThenElse b if else = case b of
     True  => if
     False => else