diff src/expl.sml @ 213:0343557355fc

Explifying type classes
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 Aug 2008 14:45:23 -0400
parents aa54250f58ac
children 3aa010e97db9
line wrap: on
line diff
--- a/src/expl.sml	Sat Aug 16 14:36:17 2008 -0400
+++ b/src/expl.sml	Sat Aug 16 14:45:23 2008 -0400
@@ -34,6 +34,7 @@
        | KArrow of kind * kind
        | KName
        | KUnit
+       | KTuple of kind list
        | KRecord of kind
 
 withtype kind = kind' located
@@ -57,6 +58,9 @@
 
        | CUnit
 
+       | CTuple of con list
+       | CProj of con * int
+
 withtype con = con' located
 
 datatype datatype_kind = datatype Elab.datatype_kind