changeset 14981 | e73f8140af78 |
parent 14171 | 0cab06e3bbd0 |
child 15188 | 9d57263faf9e |
14980:267cc670317a | 14981:e73f8140af78 |
---|---|
1 (* Title: HOLCF/FOCUS/Buffer.ML |
1 (* Title: HOLCF/FOCUS/Buffer.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: David von Oheimb, TU Muenchen |
3 Author: David von Oheimb, TU Muenchen |
4 License: GPL (GNU GENERAL PUBLIC LICENSE) |
|
5 *) |
4 *) |
6 |
5 |
7 val set_cong = prove_goal Set.thy "!!X. A = B ==> (x:A) = (x:B)" (K [ |
6 val set_cong = prove_goal Set.thy "!!X. A = B ==> (x:A) = (x:B)" (K [ |
8 etac subst 1, rtac refl 1]); |
7 etac subst 1, rtac refl 1]); |
9 |
8 |