author | haftmann |
Wed, 08 Feb 2006 14:39:00 +0100 | |
changeset 18977 | f24c416a4814 |
parent 18075 | 43000d7a017c |
permissions | -rw-r--r-- |
1461 | 1 |
(* Title: HOLCF/ex/Fix2.ML |
1274 | 2 |
ID: $Id$ |
1461 | 3 |
Author: Franz Regensburger |
1274 | 4 |
*) |
5 |
||
9265 | 6 |
Goal "fix = gix"; |
7 |
by (rtac ext_cfun 1); |
|
8 |
by (rtac antisym_less 1); |
|
9 |
by (rtac fix_least 1); |
|
10 |
by (rtac gix1_def 1); |
|
11 |
by (rtac gix2_def 1); |
|
12 |
by (rtac (fix_eq RS sym) 1); |
|
13 |
qed "lemma1"; |
|
1274 | 14 |
|
15 |
||
18075 | 16 |
Goal "gix$F=lub(range(%i. iterate i$F$UU))"; |
9265 | 17 |
by (rtac (lemma1 RS subst) 1); |
18 |
by (rtac fix_def2 1); |
|
19 |
qed "lemma2"; |