| changeset 12218 | 6597093b77e7 |
| parent 11701 | 3d51fbf81c17 |
| child 13524 | 604d0f3622d6 |
| 12217:e3efc5c9f267 | 12218:6597093b77e7 |
|---|---|
1 (* Title: HOL/IOA/NTP/Lemmas.ML |
1 (* Title: HOL/IOA/NTP/Lemmas.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: Tobias Nipkow & Konrad Slind |
3 Author: Tobias Nipkow & Konrad Slind |
4 Copyright 1994 TU Muenchen |
4 License: GPL (GNU GENERAL PUBLIC LICENSE) |
5 |
|
6 *) |
5 *) |
7 |
6 |
8 (* Logic *) |
7 (* Logic *) |
9 |
8 |
10 val prems = goal HOL.thy "(P ==> Q-->R) ==> P&Q --> R"; |
9 val prems = goal HOL.thy "(P ==> Q-->R) ==> P&Q --> R"; |