Mercurial > urweb
comparison lib/basis.urs @ 256:e52243e20858
'eq' type class
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 31 Aug 2008 15:15:41 -0400 |
parents | 7f6620853c36 |
children | 32f9212583b2 |
comparison
equal
deleted
inserted
replaced
255:69d337f186eb | 256:e52243e20858 |
---|---|
3 type string | 3 type string |
4 | 4 |
5 type unit = {} | 5 type unit = {} |
6 | 6 |
7 datatype bool = False | True | 7 datatype bool = False | True |
8 | |
9 | |
10 (** Basic type classes *) | |
11 | |
12 class eq | |
13 val eq : t ::: Type -> eq t -> t -> t -> bool | |
14 val eq_int : eq int | |
15 val eq_float : eq float | |
16 val eq_string : eq string | |
17 val eq_bool : eq bool | |
8 | 18 |
9 | 19 |
10 (** SQL *) | 20 (** SQL *) |
11 | 21 |
12 con sql_table :: {Type} -> Type | 22 con sql_table :: {Type} -> Type |