author | wenzelm |
Fri, 06 Oct 2000 17:35:58 +0200 | |
changeset 10168 | 50be659d4222 |
parent 9265 | 35aab1c9c08c |
child 10835 | f4745d77e620 |
permissions | -rw-r--r-- |
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 |
||
9265 | 17 |
Goal "gix`F=lub(range(%i. iterate i F UU))"; |
18 |
by (rtac (lemma1 RS subst) 1); |
|
19 |
by (rtac fix_def2 1); |
|
20 |
qed "lemma2"; |
|
1274 | 21 |
|
22 |