From 7865cb372d95c42542d59cbcf83ba541b0ab3f8a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 24 Feb 2009 12:01:24 -0500
Subject: Switch to TDisjoint from CDisjoint; still need to implement
 obligation generation at EDisjoint uses

---
 src/source.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/source.sml')

diff --git a/src/source.sml b/src/source.sml
index e9531245..6c117777 100644
--- a/src/source.sml
+++ b/src/source.sml
@@ -53,11 +53,11 @@ datatype con' =
        | TFun of con * con
        | TCFun of explicitness * string * kind * con
        | TRecord of con
+       | TDisjoint of con * con * con
 
        | CVar of string list * string
        | CApp of con * con
        | CAbs of string * kind option * con
-       | CDisjoint of con * con * con
 
        | CKAbs of string * con
        | TKFun of string * con
-- 
cgit v1.2.3