constructed data things

2023-11-14 14:52:21 -07:00
parent 3c667d4c23
commit f578b16d06
3 changed files with 142 additions and 8 deletions
--- a/src/Core.hs
+++ b/src/Core.hs
@@ -129,5 +129,7 @@ corePrelude = Program
    , ScDef "S" ["f", "g", "x"] (Var "f" :$ Var "x" :$ (Var "g" :$ Var "x"))
    , ScDef "compose" ["f", "g", "x"] (Var "f" :$ (Var "g" :$ Var "x"))
    , ScDef "twice" ["f", "x"] (Var "f" :$ (Var "f" :$ Var "x"))
+    , ScDef "False" [] $ Con 0 0
+    , ScDef "True" [] $ Con 1 0
    ]