summaryrefslogtreecommitdiff
path: root/Test
diff options
context:
space:
mode:
Diffstat (limited to 'Test')
-rw-r--r--Test/DataTypes.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/Test/DataTypes.hs b/Test/DataTypes.hs
index d0fbfde..28db135 100644
--- a/Test/DataTypes.hs
+++ b/Test/DataTypes.hs
@@ -10,7 +10,9 @@ module Test.DataTypes(
stdVar,
stdVarTerm,
altVar,
- altVarTerm
+ altVarTerm,
+ stdAbsTerm,
+ stdAppTerm
) where
@@ -56,4 +58,11 @@ altVar s = Var (stdName s) altTypeVar
altVarTerm :: String -> Term
altVarTerm s = TVar (altVar s)
+stdAbsTerm :: String -> Term
+stdAbsTerm s = TAbs (stdVarTerm s) stdConstTerm
+
+stdAppTerm :: String -> Term
+stdAppTerm s = TApp (stdAbsTerm s) stdConstTerm
+
+