Mercurial > urweb

comparison lib/ur/top.ur @ 1649:9253765d7724

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename [Top.id] to avoid clash with [Basis.id]
author Adam Chlipala <adam@chlipala.net>
date Thu, 29 Dec 2011 14:12:03 -0500
parents 18d18a70821e
children 6bc2a8cb3a67
comparison
equal deleted inserted replaced
1648:bd7edca0aec1 1649:9253765d7724
49 end 49 end
50 50
51 51
52 fun not b = if b then False else True 52 fun not b = if b then False else True
53 53
54 con id = K ==> fn t :: K => t 54 con ident = K ==> fn t :: K => t
55 con record (t :: {Type}) = $t 55 con record (t :: {Type}) = $t
56 con fst = K1 ==> K2 ==> fn t :: (K1 * K2) => t.1 56 con fst = K1 ==> K2 ==> fn t :: (K1 * K2) => t.1
57 con snd = K1 ==> K2 ==> fn t :: (K1 * K2) => t.2 57 con snd = K1 ==> K2 ==> fn t :: (K1 * K2) => t.2
58 con fst3 = K1 ==> K2 ==> K3 ==> fn t :: (K1 * K2 * K3) => t.1 58 con fst3 = K1 ==> K2 ==> K3 ==> fn t :: (K1 * K2 * K3) => t.1
59 con snd3 = K1 ==> K2 ==> K3 ==> fn t :: (K1 * K2 * K3) => t.2 59 con snd3 = K1 ==> K2 ==> K3 ==> fn t :: (K1 * K2 * K3) => t.2