diff lib/ur/basis.urs @ 1229:a2cd6664f57f

sendOwnIds policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 17:55:37 -0400
parents 62af4cacd191
children beb67ff4c8a0
line wrap: on
line diff
--- a/lib/ur/basis.urs	Sun Apr 11 16:46:38 2010 -0400
+++ b/lib/ur/basis.urs	Sun Apr 11 17:55:37 2010 -0400
@@ -804,6 +804,8 @@
                  -> [tables ~ exps] => sql_query [] tables exps
                  -> sql_policy
 
+val sendOwnIds : sql_sequence -> sql_policy
+
 val mayInsert : fs ::: {Type} -> tables ::: {{Type}} -> [[New] ~ tables]
                 => sql_query [] ([New = fs] ++ tables) []
                 -> sql_policy