Mercurial > urweb
comparison src/source.sml @ 85:1f85890c9846
Disjointness assumptions in expressions
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 01 Jul 2008 12:25:12 -0400 |
parents | e86370850c30 |
children | 7bab29834cd6 |
comparison
equal
deleted
inserted
replaced
84:e86370850c30 | 85:1f85890c9846 |
---|---|
46 datatype con' = | 46 datatype con' = |
47 CAnnot of con * kind | 47 CAnnot of con * kind |
48 | 48 |
49 | TFun of con * con | 49 | TFun of con * con |
50 | TCFun of explicitness * string * kind * con | 50 | TCFun of explicitness * string * kind * con |
51 | TDisjoint of con * con * con | |
51 | TRecord of con | 52 | TRecord of con |
52 | 53 |
53 | CVar of string list * string | 54 | CVar of string list * string |
54 | CApp of con * con | 55 | CApp of con * con |
55 | CAbs of string * kind option * con | 56 | CAbs of string * kind option * con |
92 | EVar of string list * string | 93 | EVar of string list * string |
93 | EApp of exp * exp | 94 | EApp of exp * exp |
94 | EAbs of string * con option * exp | 95 | EAbs of string * con option * exp |
95 | ECApp of exp * con | 96 | ECApp of exp * con |
96 | ECAbs of explicitness * string * kind * exp | 97 | ECAbs of explicitness * string * kind * exp |
98 | EDisjoint of con * con * exp | |
97 | 99 |
98 | ERecord of (con * exp) list | 100 | ERecord of (con * exp) list |
99 | EField of exp * con | 101 | EField of exp * con |
100 | EFold | 102 | EFold |
101 | 103 |