数据 AST公司 dom信号 哪里 类型 ASTF公司 dom公司= AST公司 dom公司( 完全 a) 新类型 完全 一个= 完全 { 结果 ::a
} 新类型 一 :-> 信号发生器= 部分 (a->信号) 大小 :: AST公司 dom信号-> 国际 班 应用Sym sig f dom | sig dom->f,f->sig dom 哪里 类型族 拒绝结果 信号发生器 数据 (域1 :+: 域2)a 哪里 班 项目 sub-sup公司 哪里 班 项目 sub-sup=>sub :<: 啜饮 哪里 注射 ::sub a->sup a
应用程序Sym :: ( 应用Sym sig f dom,sym公司 :<: AST公司 dom)=>sym-sig->f symType(符号类型) :: P(P) sym->sym sig->sym sig prjP公司 :: 项目 sub-sup=> P(P) sub->sup-sig-> 也许 吧 (亚sig)
语法树
符号域
appSym::(表达式:<:AST dom) =>表达式(a:->b:->…:->完整x) ->(ASTF dom a->ASTF dom b->…->ASTF dom x)