src/HOLCF/Cfun1.thy
author oheimb
Mon, 21 Sep 1998 23:04:51 +0200
changeset 5519 54e313ed22ba
parent 5291 5706f0ef1d43
child 6382 8b0c9205da75
permissions -rw-r--r--
re-added mem and list_all improved indentation improved addbefore and addSbefore improved mechanism for unsafe wrappers
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1479
21eb5e156d91 expanded tabs
clasohm
parents: 1274
diff changeset
     1
(*  Title:      HOLCF/cfun1.thy
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     2
    ID:         $Id$
1479
21eb5e156d91 expanded tabs
clasohm
parents: 1274
diff changeset
     3
    Author:     Franz Regensburger
243
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
Definition of the type ->  of continuous functions
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
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    10
Cfun1 = Cont +
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    11
2838
2e908f29bc3d changed continuous functions from pcpo to cpo (including instances)
slotosch
parents: 2640
diff changeset
    12
default cpo
2e908f29bc3d changed continuous functions from pcpo to cpo (including instances)
slotosch
parents: 2640
diff changeset
    13
2640
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch:
slotosch
parents: 2394
diff changeset
    14
typedef (CFun)  ('a, 'b) "->" (infixr 0) = "{f. cont f}" (CfunI)
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    15
3323
194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord
slotosch
parents: 2838
diff changeset
    16
(* to make << defineable *)
194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord
slotosch
parents: 2838
diff changeset
    17
instance "->"  :: (cpo,cpo)sq_ord
194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord
slotosch
parents: 2838
diff changeset
    18
5291
5706f0ef1d43 eliminated fabs,fapp.
slotosch
parents: 4121
diff changeset
    19
syntax
5706f0ef1d43 eliminated fabs,fapp.
slotosch
parents: 4121
diff changeset
    20
	Rep_CFun  :: "('a -> 'b)=>('a => 'b)" ("_`_" [999,1000] 999)
1479
21eb5e156d91 expanded tabs
clasohm
parents: 1274
diff changeset
    21
                                                (* application      *)
5291
5706f0ef1d43 eliminated fabs,fapp.
slotosch
parents: 4121
diff changeset
    22
        Abs_CFun  :: "('a => 'b)=>('a -> 'b)"     (binder "LAM " 10)
1479
21eb5e156d91 expanded tabs
clasohm
parents: 1274
diff changeset
    23
                                                (* abstraction      *)
21eb5e156d91 expanded tabs
clasohm
parents: 1274
diff changeset
    24
        less_cfun :: "[('a -> 'b),('a -> 'b)]=>bool"
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    25
2394
91d8abf108be adaptions for symbol font
oheimb
parents: 2289
diff changeset
    26
syntax (symbols)
3394
fa31c7dca468 changed priority of -> from [6,5]5 to [1,0]0
mueller
parents: 3323
diff changeset
    27
  "->"		:: [type, type] => type	("(_ \\<rightarrow>/ _)" [1,0]0)
2394
91d8abf108be adaptions for symbol font
oheimb
parents: 2289
diff changeset
    28
  "LAM "	:: "[idts, 'a => 'b] => ('a -> 'b)"
91d8abf108be adaptions for symbol font
oheimb
parents: 2289
diff changeset
    29
					("(3\\<Lambda>_./ _)" [0, 10] 10)
1168
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old
regensbu
parents: 430
diff changeset
    30
defs 
5291
5706f0ef1d43 eliminated fabs,fapp.
slotosch
parents: 4121
diff changeset
    31
  less_cfun_def "(op <<) == (% fo1 fo2. Rep_CFun fo1 << Rep_CFun fo2 )"
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    32
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    33
end