liboleg-0.2: A collection of Oleg Kiselyov's Haskell modules (2009-2008)



Simply-typed Curry-style (nominal) lambda-calculus with integers and zero-comparison Type inference. Hiding the single-threaded state via simple algebraic transformations (beta-expansions).



data Typ Source


!Typ :> !Typ 
TV TVarName 


type TEnv = [(VarName, Typ)]Source

Type Environment: associating types with free term variables

data TVE Source

Type Variable Environment: associating types with free type variables


TVE Int (IntMap Typ) 


newtv :: TVE -> (Typ, TVE)Source

Allocate a fresh type variable (see the first component of TVE)

tvsub :: TVE -> Typ -> TypSource

Type variables are logic variables: hypothetical reasoning

tvchase :: TVE -> Typ -> TypSource

shallow substitution; check if tv is bound to anything substantial

unify :: Typ -> Typ -> TVE -> Either String TVESource

The unification. If unification failed, return the reason

unify' :: Typ -> Typ -> TVE -> Either String TVESource

If either t1 or t2 are type variables, they are definitely unbound

unifyv :: TVarName -> Typ -> TVE -> Either String TVESource

Unify a free variable v1 with t2

occurs :: TVarName -> Typ -> TVE -> BoolSource

The occurs check: if v appears free in t

type TVEM a = TVE -> (a, TVE)Source

Introducing the combinators to hide single-threaded state tve in one case of teval' (the A case). The other cases stay as they are, to illustrate that our transformation is fully compatible with the earlier code.

(>>=) :: TVEM a -> (a -> TVEM b) -> TVEM bSource

return :: a -> TVEM aSource

teval' :: TEnv -> Term -> TVE -> (Typ, TVE)Source

The expression abstracted from the last-but-one re-writing of the A-clause below

Type reconstruction: abstract evaluation