Mercurial > urweb

diff src/elab_util.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_util.sml	Tue Jul 01 09:29:49 2008 -0400
+++ b/src/elab_util.sml	Tue Jul 01 10:55:38 2008 -0400
@@ -56,6 +56,8 @@
                         fn k' =>
                            (KRecord k', loc))
 
+              | KUnit => S.return2 kAll
+
               | KError => S.return2 kAll
 
               | KUnif (_, _, ref (SOME k)) => mfk' k
@@ -150,6 +152,8 @@
                                     fn k2' =>
                                        (CFold (k1', k2'), loc)))
 
+              | CUnit => S.return2 cAll
+
               | CError => S.return2 cAll
               | CUnif (_, _, _, ref (SOME c)) => mfc' ctx c
               | CUnif _ => S.return2 cAll