1461
|
1 |
(* Title: HOLCF/ex/Fix2.ML
|
1274
|
2 |
ID: $Id$
|
1461
|
3 |
Author: Franz Regensburger
|
12036
|
4 |
License: GPL (GNU GENERAL PUBLIC LICENSE)
|
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 |
|