| 1461 |      1 | (*  Title:      HOLCF/ex/Fix2.ML
 | 
| 1274 |      2 |     ID:         $Id$
 | 
| 1461 |      3 |     Author:     Franz Regensburger
 | 
|  |      4 |     Copyright   1995 Technische Universitaet Muenchen
 | 
| 1274 |      5 | *)
 | 
|  |      6 | 
 | 
| 9265 |      7 | Goal "fix = gix";
 | 
|  |      8 | by (rtac ext_cfun 1);
 | 
|  |      9 | by (rtac antisym_less 1);
 | 
|  |     10 | by (rtac fix_least 1);
 | 
|  |     11 | by (rtac gix1_def 1);
 | 
|  |     12 | by (rtac gix2_def 1);
 | 
|  |     13 | by (rtac (fix_eq RS sym) 1);
 | 
|  |     14 | qed "lemma1";
 | 
| 1274 |     15 | 
 | 
|  |     16 | 
 | 
| 10835 |     17 | Goal "gix$F=lub(range(%i. iterate i F UU))";
 | 
| 9265 |     18 | by (rtac (lemma1 RS subst) 1);
 | 
|  |     19 | by (rtac fix_def2 1);
 | 
|  |     20 | qed "lemma2";
 | 
| 1274 |     21 | 
 | 
|  |     22 | 
 |