src/HOLCF/Fun1.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 4721 c8a8482a8124
child 12030 46d57d0290a2
permissions -rw-r--r--
made tutorial first;
slotosch@2640
     1
(*  Title:      HOLCF/Fun1.thy
nipkow@243
     2
    ID:         $Id$
clasohm@1479
     3
    Author:     Franz Regensburger
nipkow@243
     4
    Copyright   1993  Technische Universitaet Muenchen
nipkow@243
     5
nipkow@243
     6
nipkow@243
     7
Definition of the partial ordering for the type of all functions => (fun)
nipkow@243
     8
nipkow@243
     9
REMARK: The ordering on 'a => 'b is only defined if 'b is in class po !!
nipkow@243
    10
nipkow@243
    11
*)
nipkow@243
    12
nipkow@243
    13
Fun1 = Pcpo +
nipkow@243
    14
oheimb@4721
    15
instance flat<chfin (flat_imp_chfin)
slotosch@3327
    16
slotosch@3323
    17
(* to make << defineable: *)
slotosch@3323
    18
instance fun  :: (term,sq_ord)sq_ord
nipkow@243
    19
regensbu@1168
    20
defs
slotosch@3323
    21
  less_fun_def "(op <<) == (%f1 f2.!x. f1 x << f2 x)"  
nipkow@243
    22
end
nipkow@243
    23
nipkow@243
    24
nipkow@243
    25
nipkow@243
    26