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