From 3c916538bab39f1c6d4af649f3ee9b05448ecb30 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Tue, 27 Jul 2010 11:42:30 -0400
Subject: Initial version of equalKnown working for secret

---
 src/mono_util.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/mono_util.sml')

diff --git a/src/mono_util.sml b/src/mono_util.sml
index 6bbbecb1..cb01a958 100644
--- a/src/mono_util.sml
+++ b/src/mono_util.sml
@@ -556,6 +556,9 @@ fun mapfoldB {typ = fc, exp = fe, decl = fd, bind} =
               | PolSequence e =>
                 S.map2 (mfe ctx e,
                         PolSequence)
+              | PolEqualKnown {table = tab, field = nm} =>
+                S.map2 (mfe ctx tab,
+                        fn tab => PolEqualKnown {table = tab, field = nm})
 
         and mfvi ctx (x, n, t, e, s) =
             S.bind2 (mft t,
-- 
cgit v1.2.3