Mercurial > urweb

diff src/elab.sml @ 82:b4f2a258e52c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial disjointness prover
author Adam Chlipala <adamc@hcoop.net>
date Tue, 01 Jul 2008 10:55:38 -0400
parents 522f4bd3955e
children e86370850c30
line wrap: on
line diff
--- a/src/elab.sml	Tue Jul 01 09:29:49 2008 -0400
+++ b/src/elab.sml	Tue Jul 01 10:55:38 2008 -0400
@@ -34,6 +34,7 @@
        | KArrow of kind * kind
        | KName
        | KRecord of kind
+       | KUnit
 
        | KError
        | KUnif of ErrorMsg.span * string * kind option ref
@@ -61,6 +62,8 @@
        | CConcat of con * con
        | CFold of kind * kind
 
+       | CUnit
+
        | CError
        | CUnif of ErrorMsg.span * kind * string * con option ref