Remove test terms
This commit is contained in:
parent
b9762ddb10
commit
d8865c49d7
1 changed files with 0 additions and 14 deletions
|
|
@ -1,19 +1,13 @@
|
|||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Props.Lambda.Term
|
||||
( Term(..)
|
||||
, vars
|
||||
, mapVars
|
||||
, consts
|
||||
, mapConsts
|
||||
, termI
|
||||
, termY
|
||||
) where
|
||||
|
||||
import Numeric.Natural
|
||||
|
||||
import qualified Data.Text as T
|
||||
|
||||
-- | Lambda calculus term using De Bruijn indexing and expanded to deal with
|
||||
-- naming complexity and extensions.
|
||||
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 (App l r) = App (mapConsts f l) (mapConsts f r)
|
||||
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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue