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;
     1 (*  Title:      HOLCF/Fun1.thy
     2     ID:         $Id$
     3     Author:     Franz Regensburger
     4     Copyright   1993  Technische Universitaet Muenchen
     5 
     6 
     7 Definition of the partial ordering for the type of all functions => (fun)
     8 
     9 REMARK: The ordering on 'a => 'b is only defined if 'b is in class po !!
    10 
    11 *)
    12 
    13 Fun1 = Pcpo +
    14 
    15 instance flat<chfin (flat_imp_chfin)
    16 
    17 (* to make << defineable: *)
    18 instance fun  :: (term,sq_ord)sq_ord
    19 
    20 defs
    21   less_fun_def "(op <<) == (%f1 f2.!x. f1 x << f2 x)"  
    22 end
    23 
    24 
    25 
    26