Garmelon/propa-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove test terms

Browse source
This commit is contained in:
Joscha 2020-11-26 19:05:31 +01:00
parent b9762ddb10
commit d8865c49d7
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/Props/Lambda/Term.hs
View file

@ -1,19 +1,13 @@
{-# LANGUAGE OverloadedStrings #-}
module Props.Lambda.Term module Props.Lambda.Term
( Term(..) ( Term(..)
, vars , vars
, mapVars , mapVars
, consts , consts
, mapConsts , mapConsts
, termI
, termY
) where ) where
import Numeric.Natural import Numeric.Natural
import qualified Data.Text as T
-- | Lambda calculus term using De Bruijn indexing and expanded to deal with -- | Lambda calculus term using De Bruijn indexing and expanded to deal with
-- naming complexity and extensions. -- naming complexity and extensions.
data Term e c v data Term e c v
@ -53,11 +47,3 @@ mapConsts f (Const c) = Const (f c)
mapConsts f (Lambda v t) = Lambda v (mapConsts f t) mapConsts f (Lambda v t) = Lambda v (mapConsts f t)
mapConsts f (App l r) = App (mapConsts f l) (mapConsts f r) mapConsts f (App l r) = App (mapConsts f l) (mapConsts f r)
mapConsts _ (Ext e) = Ext e mapConsts _ (Ext e) = Ext e
termI :: Term e T.Text T.Text
termI = Lambda "x" (Var 0)
termY :: Term e T.Text T.Text
termY = Lambda "f" $ App
(Lambda "x" $ App (Var 1) $ App (Var 0) (Var 0))
(Lambda "x" $ App (Var 1) $ App (Var 0) (Var 0))