diff options
| -rw-r--r-- | Test/DataTypes.hs | 11 |
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 + + |