src/HOLCF/fun1.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 243 c22b85994e17
permissions -rw-r--r--
made tutorial first;
nipkow@243
     1
(*  Title: 	HOLCF/fun1.thy
nipkow@243
     2
    ID:         $Id$
nipkow@243
     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
nipkow@243
    15
(* default class is still term *)
nipkow@243
    16
nipkow@243
    17
consts
nipkow@243
    18
  less_fun	:: "['a=>'b::po,'a=>'b] => bool"	
nipkow@243
    19
nipkow@243
    20
rules
nipkow@243
    21
   (* definition of the ordering less_fun            *)
nipkow@243
    22
   (* in fun1.ML it is proved that less_fun is a po *)
nipkow@243
    23
   
nipkow@243
    24
  less_fun_def "less_fun(f1,f2) == ! x. f1(x) << f2(x)"  
nipkow@243
    25
nipkow@243
    26
end
nipkow@243
    27
nipkow@243
    28
nipkow@243
    29
nipkow@243
    30