changeset 12030 | 46d57d0290a2 |
parent 9969 | 4753185f1dd2 |
child 14981 | e73f8140af78 |
12029:7df1d840d01d | 12030:46d57d0290a2 |
---|---|
1 (* Title: HOLCF/Ssum1.ML |
1 (* Title: HOLCF/Ssum1.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: Franz Regensburger |
3 Author: Franz Regensburger |
4 Copyright 1993 Technische Universitaet Muenchen |
4 License: GPL (GNU GENERAL PUBLIC LICENSE) |
5 |
5 |
6 Partial ordering for the strict sum ++ |
6 Partial ordering for the strict sum ++ |
7 *) |
7 *) |
8 |
8 |
9 fun eq_left s1 s2 = |
9 fun eq_left s1 s2 = |