author | wenzelm |
Tue, 11 Nov 2014 11:47:53 +0100 | |
changeset 58973 | 2a683fb686fd |
parent 58889 | 5b7a9633cfa8 |
child 58974 | cbc2ac19d783 |
permissions | -rw-r--r-- |
4905 | 1 |
|
58889 | 2 |
section {* Prefixpoints *} |
4905 | 3 |
|
17248 | 4 |
theory Ex4 |
5 |
imports LCF |
|
6 |
begin |
|
7 |
||
19755 | 8 |
lemma example: |
9 |
assumes asms: "f(p) << p" "!!q. f(q) << q ==> p << q" |
|
10 |
shows "FIX(f)=p" |
|
11 |
apply (unfold eq_def) |
|
12 |
apply (rule conjI) |
|
58973 | 13 |
apply (induct f) |
19755 | 14 |
apply (rule minimal) |
15 |
apply (intro strip) |
|
16 |
apply (rule less_trans) |
|
17 |
prefer 2 |
|
18 |
apply (rule asms) |
|
19 |
apply (erule less_ap_term) |
|
20 |
apply (rule asms) |
|
21 |
apply (rule FIX_eq [THEN eq_imp_less1]) |
|
22 |
done |
|
23 |
||
17248 | 24 |
end |