more symbols + tweaked printed output

examples/algebra.pg

@@ -48,7 +48,8 @@ def id_r_op : forall (a : G), a *> e = a := id_lG;
 def left_id_unique (a : G) (H : forall (b : G), a * b = b) : a = e :=
     eq_trans G a (a * e) e (eq_sym G (a * e) a (id_rG a)) (H e);
 
-def right_id_unique (a : G) (H : forall (b : G), b * a = b) : a = e := #left_id_unique G (*>) e id_lG a H;
+def right_id_unique (a : G) (H : forall (b : G), b * a = b) : a = e :=
+    #left_id_unique G (*>) e id_lG a H;
 
 section Group
 

examples/sets.pg

@@ -0,0 +1,2 @@
+axiom set : ★;
+axiom ∈ : set → set → ★;

lib/Expr.hs

@@ -183,8 +183,8 @@ prettyExpr k expr = case expr of
         | otherwise -> piType
       where
         (top :| rest) = collectArrows expr
-        piType = group $ hang 4 $ prettyExpr 3 top <+> align (sep $ map (("->" <+>) . prettyExpr 2) rest)
-    Pi{} -> group $ hang 4 $ "∏" <+> align (sep grouped) <> "," <> line <> align (prettyExpr 0 body)
+        piType = group $ hang 4 $ prettyExpr 3 top <+> align (sep $ map (("→" <+>) . prettyExpr 2) rest)
+    Pi{} -> group $ hang 4 $ "forall" <+> align (sep grouped) <> "," <> line <> align (prettyExpr 0 body)
       where
         (params, body) = collectPis expr
         grouped = pretty <$> groupParams params
@@ -195,7 +195,7 @@ prettyExpr k expr = case expr of
       where
         (params, body) = collectLambdas expr
         grouped = pretty <$> groupParams params
-        lambdaForm = group $ hang 4 $ "λ" <+> align (sep grouped) <+> "=>" <> line <> align (prettyExpr 0 body)
+        lambdaForm = group $ hang 4 $ "λ" <+> align (sep grouped) <+> "⇒" <> line <> align (prettyExpr 0 body)
     Let{} ->
         group $
             vsep

lib/Parser.hs

@@ -46,7 +46,7 @@ symbol :: Text -> Parser ()
 symbol = void . L.symbol skipSpace
 
 symbols :: String
-symbols = "!@#$%^&*-+=<>,./?[]{}\\|`~'\"∧∨⊙×≅"
+symbols = "!@#$%^&*-+=<>,./?[]{}\\|`~'\"∧∨⊙×≅∈⊆⊂⊃⊇"
 
 pKeyword :: Text -> Parser ()
 pKeyword keyword = void $ lexeme (string keyword <* notFollowedBy alphaNumChar)