1479
|
1 |
(* Title: HOLCF/Dnat2.thy
|
1274
|
2 |
ID: $Id$
|
1479
|
3 |
Author: Franz Regensburger
|
1274
|
4 |
Copyright 1993 Technische Universitaet Muenchen
|
|
5 |
|
|
6 |
Additional constants for dnat
|
|
7 |
|
|
8 |
*)
|
|
9 |
|
|
10 |
Dnat2 = Dnat +
|
|
11 |
|
|
12 |
consts
|
|
13 |
|
1479
|
14 |
iterator :: "dnat -> ('a -> 'a) -> 'a -> 'a"
|
1274
|
15 |
|
|
16 |
|
|
17 |
defs
|
|
18 |
|
1479
|
19 |
iterator_def "iterator == fix`(LAM h n f x.
|
|
20 |
dnat_when `x `(LAM m.f`(h`m`f`x)) `n)"
|
1274
|
21 |
end
|
|
22 |
|
|
23 |
(*
|
|
24 |
|
1479
|
25 |
iterator`UU`f`x = UU
|
|
26 |
iterator`dzero`f`x = x
|
1274
|
27 |
n~=UU --> iterator`(dsucc`n)`f`x = f`(iterator`n`f`x)
|
|
28 |
*)
|
|
29 |
|