类型系统(二)

本文为学习类型系统的系列文章的第二篇。主要参考资料为大名鼎鼎的$Types$ $and$ $Programming$ $Languages$。

无类型$\lambda$演算

基础

变量与元变量(Variables and Metavariables)

首先看一个式子 $\lambda$x.$\lambda$y.xy有形式$\lambda$z.s
其中z,s被称为元变量，x,y被称为对象语言变量

作用域(Scope)

在$\lambda$x.t中，x的作用域就为t。而在$\lambda$y.xy或者xy中，x就是自由变量。不含自由变量的项成为封闭项，也称为组合子。最简单的组合子是恒等函数：
$$id=\lambda x.x$$

操作语义

$\beta$规约

$$(\lambda x.t_{12})t_2\to [x\to t_2]t_{12}$$

其中$[x\to t_2]t_{12}$表示由$t_2$代换在$t_{12}$中所有自由出现的$x$得到的项。例如
$$(\lambda x.x(\lambda x.x))(\text{u r})$$
规约后可得到结果
$$\text{u r }(\lambda x.x)$$

求值策略

考虑项
$$(\lambda x.x(\lambda x.x))(\lambda z.(\lambda x.x)z)$$
可记作
$$id(id(\lambda z.id\text{ z}))$$
这个项包含三个约式：
$$\underline{id(id(\lambda z.id\text{ z}))}$$ $$id\underline{(id(\lambda z.id\text{ z}))}$$ $$id(id(\lambda z.\underline{id\text{ z}))}$$

• $\beta$规约
  $id(id(\lambda z.\underline{id\text{ z}))}$
  $\to id\underline{(id(\lambda z.z))}$
  $\to \underline{id(\lambda z.z)}$
  $\to \lambda z.z$
• 正则序
  $\underline{id(id(\lambda z.id\text{ z}))}$
  $\to \underline{id(\lambda z.id\text{ z})}$
  $\to \lambda z.\underline{\text{id z}}$
  $\to \lambda z.z$
• 按名调用
  $\underline{id(id(\lambda z.id\text{ z}))}$
  $\to \underline{id(\lambda z.id\text{ z})}$
  $\to \lambda z.\text{id z}$
• 按值调用
  $\underline{id(id(\lambda z.id\text{ z}))}$
  $\to \underline{id(\lambda z.id\text{ z})}$
  $\to \lambda z.\text{id z}$

$\lambda 演算中的程序设计$

多参数

$$\lambda \text{(x y)}.s\to \lambda x.\lambda y.s$$

Church布尔式

$$tru=\lambda t.\lambda f.t$$$$fls=\lambda t.\lambda f.f$$

条件式

$$if=\lambda l.\lambda m.\lambda n.\text{l m n}$$

逻辑式

$$and=\lambda b.\lambda c.\text{b c fls}$$$$and=\lambda b.\lambda c.\text{b c tru}$$$$and=\lambda b.\text{if b fls tru}$$

序对

$$pair=\lambda f.\lambda s.\lambda b.\text{b f s}$$$$fst=\lambda p.\text{p tru}$$$$snd=\lambda p.\text{p fls}$$

数值

$$c_0=\lambda s.\lambda z.z$$$$c_1=\lambda s.\lambda z.\text{s z}$$$$c_2=\lambda s.\lambda z.\text{s (s z)}$$$$etc.$$

后继

$$succ=\lambda n.\lambda s.\lambda z.\text{s (n s z)}$$

加法

$$plus=\lambda m.\lambda n.\lambda s.\lambda z.\text{ m s (n s z)}$$

乘法

$$times=\lambda m.\lambda n.\text{ m (plus n) }{c}_0$$

前驱

$$zz=\text{pair }{c}_0{c}_0$$$$ss=\lambda p.\text{ pair (snd p) (plus }{c}_1\text{ (snd p))}$$$$pred=\lambda m.\text{fst (m ss zz)}$$

减法

$$minus=\lambda m.\lambda n.\text{ m (fst (n ss zz))}$$

递归

$$\omega =(\lambda x.\text{(}xx))(\lambda x.\text{(}xx))$$$$fix=\lambda f.(\lambda x.f(\lambda y.\text{ x x y}))(\lambda x.f(\lambda y.\text{ x x y}))$$

形式性

定义：$一个项t的自由变量集合，记作FV(t)，定义如下：$
F V ( x ) = { x } FV(x) = \{x\} FV(x)={x}$$FV(\lambda x.t_1)=FV(t_1)\backslash \text{{x}}$$$$FV(t_1{t}_2)=FV(t_1)\cup FV(t_2)$$

代换

$$[x\to s]x=s$$$$[x\to s]y=y\text{ if y}̸=x$$$$[x\to s](\lambda y.t_1)=\lambda y.[x\to s]t_1\text{ if y}̸=\text{x and y}\notin FV(s)$$$$[x\to s](t_1{t}_2)=([x\to s]t_1)([x\to s]t_2)$$

语法

t ::=     terms:
  x     variable
  λx.t    abstraction
  t t    application
v ::=     values:
  λx.t    abstraction value

求值

$$\frac{t_1\to t_1^{\prime }}{t_1{t}_2\to t_1^{\prime }{t}_2}\text{ (E-App1)}$$$$\frac{t_2\to t_2^{\prime }}{v_1{t}_2\to v_2{t}_2^{\prime }}\text{ (E-App2)}$$$$(\lambda x.t_{12})v_2\to [x\to v_2]t_{12}\text{ (E-AppABS)}$$

项和上下文

为确定变量的出现该如何表示，我们将变量直接指向它的绑定器。这样可以用自然数代替有名变量来实现。例如$$\lambda x.x$$
可表示为：
$$\lambda .0$$
而$$\lambda x.\lambda y.x(yx)$$
可表示为：
$$\lambda .\lambda .\text{ 1 (0 1)}$$

移位

要对用自然数代替有名变量的项进行代换，首先需要一个辅助操作，称为移位用来将项中的自由变量重新索引。一个项在截断参数c(表示从第c个索引开始需要移位)上的d步位移，记为${\uparrow }_c^d(t)$。定义如下：
$${\uparrow }_c^d(k)=\{\begin{array}{ll}k& ifk<c\\ k+d& ifk\ge c\end{array}$$$${\uparrow }_c^d(\lambda .t_1)=\lambda .{\uparrow }_{c+1}^d(t_1)$$$${\uparrow }_c^d(t_1{t}_2)={\uparrow }_c^d(t_1){\uparrow }_c^d(t_2)$$
一般用${\uparrow }^d(t)$表示${\uparrow }_0^d(t)$

代换

$$[j\to s]k=\{\begin{array}{ll}s& ifk==j\\ k& else\end{array}$$$$[j\to s](\lambda .t_1)=\lambda .[j+1\to {\uparrow }^1(s)]t_1$$$$[j\to s](t_1{t}_2)=([j\to s]t_1[j\to s]t_2)$$

求值

求值规则稍有变化的地方在于，当一个约式的规约消耗掉某个变量x以后，考虑到该变量x不再是上下文的一部分，所以需要重新生成索引。例如：
$$(\lambda .\text{1 0 2})(\lambda .0)\to \text{0 }(\lambda .0)\text{ 1}(\text{not 1 }(\lambda .0)\text{ 2})$$

haskell实现

同样首先定义项

data Term = TmVar Int Int
          | TmAbs String Term
          | TmApp Term Term
          deriving (Show)

定义辅助函数

isval :: Term  -> Bool
isval (TmAbs _ _) = True
isval      _      = False

定义移位

termShift :: Int -> Term -> Term
termShift d = walk 0
  where walk :: Int -> Term -> Term
        walk c (TmVar x n)
                | x >= c = TmVar (x + d) (n + d)
                | otherwise = TmVar x (n + d)
        walk c (TmAbs x t1) = TmAbs x (walk (c + 1) t1)
        walk c (TmApp t1 t2) = TmApp (walk c t1) (walk c t2)

定义代换

termSubst :: Int -> Term -> Term -> Term
termSubst j s = walk 0
  where  walk :: Int -> Term -> Term
         walk c (TmVar x n)
                | x == j + c = termShift c s
                | otherwise = TmVar x n
         walk c (TmAbs x t1) = TmAbs x (walk (c+1) t1)
         walk c (TmApp t1 t2) = TmApp (walk c t1) (walk c t2)
termSubsetTop s t = termShift (-1) (termSubst 0 (termShift 1 s) t)

求值函数

eval :: Term -> Maybe Term
eval (TmApp (TmAbs _ t12) v2)
  | isval v2 = return $ termSubsetTop v2 t12
eval (TmApp t1 t2)
  | isval t1 = liftM2 TmApp (return t1) (eval  t2)
  | otherwise  = liftM2 TmApp (eval  t1) (return t2)
eval _ = Nothing

由于暂时未用到上下文环境，故并未给出定义。