From 8179b6224c5d4eb3b3fbe48e6acf5d630138c3da 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

---
 lib/ur/basis.urs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib')

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index f6141bc7..7b17dd05 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -819,6 +819,9 @@ val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables]
                 => sql_query [] ([Old = fs, New = fs] ++ tables) []
                 -> sql_policy
 
+val equalKnown : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}}
+                 -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy
+
 val also : sql_policy -> sql_policy -> sql_policy
 
 val debug : string -> transaction unit
-- 
cgit v1.2.3