Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/stream2.thy
author slotosch
Sun, 25 May 1997 11:07:52 +0200
changeset 3323 194ae2e0c193
parent 297 5ef75ff3baeb
permissions -rw-r--r--
eliminated the constant less by the introduction of the axclass sq_ord added explicit type ::'a::po in the following theorems: minimal2UU,antisym_less_inverse,box_less,not_less2not_eq,monofun_pair and dist_eqI (in domain-package) added instances instance fun :: (term,sq_ord)sq_ord instance "->" :: (term,sq_ord)sq_ord instance "**" :: (sq_ord,sq_ord)sq_ord instance "*" :: (sq_ord,sq_ord)sq_ord instance "++" :: (pcpo,pcpo)sq_ord instance u :: (sq_ord)sq_ord instance lift :: (term)sq_ord instance discr :: (term)sq_ord
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset 
     1
 
(*  Title: 	HOLCF/stream2.thy
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset 
     2
 
    ID:         $Id$
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset 
     3
 
    Author: 	Franz Regensburger
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset 
     4
 
    Copyright   1993 Technische Universitaet Muenchen
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset 
     5
 












c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




     6


Additional constants for stream













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




     7


*)













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




     8














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




     9


Stream2 = Stream +













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    10














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    11


consts













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    12














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    13


smap		:: "('a -> 'b) -> 'a stream -> 'b stream"













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    14














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    15


rules













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    16














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    17


smap_def













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    18


  "smap = fix[LAM h f s. stream_when[LAM x l.scons[f[x]][h[f][l]]][s]]"













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    19














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    20














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    21


end








297






5ef75ff3baeb
Franz fragen



nipkow


parents: 
243

diff
changeset




    22


      








243






c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    23














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    24


(*













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    25


		smap[f][UU] = UU













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    26


      x~=UU --> smap[f][scons[x][xs]] = scons[f[x]][smap[f][xs]]













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    27














c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    28


*)













c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF



nipkow


parents: 

diff
changeset




    29
















isabelle