changeset 3327 | 9b8e638f8602 |
parent 3323 | 194ae2e0c193 |
child 4721 | c8a8482a8124 |
3326:930c9bed5a09 | 3327:9b8e638f8602 |
---|---|
10 |
10 |
11 *) |
11 *) |
12 |
12 |
13 Fun1 = Pcpo + |
13 Fun1 = Pcpo + |
14 |
14 |
15 instance flat<chfin (flat_imp_chain_finite) |
|
16 |
|
15 (* to make << defineable: *) |
17 (* to make << defineable: *) |
16 instance fun :: (term,sq_ord)sq_ord |
18 instance fun :: (term,sq_ord)sq_ord |
17 |
19 |
18 defs |
20 defs |
19 less_fun_def "(op <<) == (%f1 f2.!x. f1 x << f2 x)" |
21 less_fun_def "(op <<) == (%f1 f2.!x. f1 x << f2 x)" |