[isabelle-dev] cs. 3911cf09899a, ctd.

[Florian Haftmann]

A further remark:

>     1.17 +definition ntrancl :: "('a * 'a => bool) => nat => ('a * 'a => bool)"
>     1.18 +where
>     1.19 + [code del]: "ntrancl R n = (UN i : {i. 0 < i & i <= (Suc n)}. R ^^ i)"

Canonically and keeping in mind the upcoming 'a set, this would be

definition ntrancl :: "nat => ('a * 'a) set => ('a * 'a) set"

	Florian

-- 

Home:
http://www.in.tum.de/~haftmann

PGP available:
http://home.informatik.tu-muenchen.de/haftmann/pgp/florian_haftmann_at_informatik_tu_muenchen_de

-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 262 bytes
Desc: OpenPGP digital signature
URL: <https://mailman46.in.tum.de/pipermail/isabelle-dev/attachments/20111003/3c02812e/attachment.sig>