Mercurial > urweb

comparison tests/cargs.lac @ 240:7036d29574f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Shorthand for multi-binding con declaration
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Aug 2008 13:39:20 -0400
parents fc6f04889bf2
children
comparison
equal deleted inserted replaced
239:fc6f04889bf2 240:7036d29574f2
3 con id3 = fn t => id2 t 3 con id3 = fn t => id2 t
4 4
5 con pair = fn (t :: Type) (u :: Type) => (t, u) 5 con pair = fn (t :: Type) (u :: Type) => (t, u)
6 con pair2 = fn t u => pair t u 6 con pair2 = fn t u => pair t u
7 con pair3 = fn t (u :: Type) => pair2 t u 7 con pair3 = fn t (u :: Type) => pair2 t u
8
9 con id4 (t :: Type) = t
10 con id5 (t :: Type) :: Type = id4 t
11 con id6 t :: Type = id5 t
12
13 con pair4 t (u :: Type) = pair3 t u
14 con pair5 t (u :: Type) :: (Type * Type) = pair4 t u