From eebc6a7216895d8e4d6ad38af09cd295099a256c Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 22 Sep 2012 20:06:24 +1000 Subject: Added standard AbsTerm and AppTerm datatypes --- Test/DataTypes.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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 + + -- cgit