| changeset 14981 | e73f8140af78 |
| parent 12338 | de0f4a63baa5 |
| 14980:267cc670317a | 14981:e73f8140af78 |
|---|---|
1 (* Title: HOLCF/Discrete1.ML |
1 (* Title: HOLCF/Discrete1.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: Tobias Nipkow |
3 Author: Tobias Nipkow |
4 License: GPL (GNU GENERAL PUBLIC LICENSE) |
|
5 |
4 |
6 Proves that 'a discr is a cpo |
5 Proves that 'a discr is a cpo |
7 *) |
6 *) |
8 |
7 |
9 Goalw [less_discr_def] "((x::('a::type)discr) << y) = (x=y)"; |
8 Goalw [less_discr_def] "((x::('a::type)discr) << y) = (x=y)"; |