src/HOLCF/fun2.thy
changeset 243 c22b85994e17
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOLCF/fun2.thy	Wed Jan 19 17:35:01 1994 +0100
     1.3 @@ -0,0 +1,40 @@
     1.4 +(*  Title: 	HOLCF/fun2.thy
     1.5 +    ID:         $Id$
     1.6 +    Author: 	Franz Regensburger
     1.7 +    Copyright   1993 Technische Universitaet Muenchen
     1.8 +
     1.9 +Class Instance =>::(term,po)po
    1.10 +Definiton of least element
    1.11 +*)
    1.12 +
    1.13 +Fun2 = Fun1 + 
    1.14 +
    1.15 +(* default class is still term !*)
    1.16 +
    1.17 +(* Witness for the above arity axiom is fun1.ML *)
    1.18 +
    1.19 +arities fun :: (term,po)po
    1.20 +
    1.21 +consts	
    1.22 +	UU_fun  :: "'a::term => 'b::pcpo"
    1.23 +
    1.24 +rules
    1.25 +
    1.26 +(* instance of << for type ['a::term => 'b::po]  *)
    1.27 +
    1.28 +inst_fun_po	"(op <<)::['a=>'b::po,'a=>'b::po ]=>bool = less_fun"
    1.29 +
    1.30 +(* definitions *)
    1.31 +(* The least element in type 'a::term => 'b::pcpo *)
    1.32 +
    1.33 +UU_fun_def	"UU_fun == (% x.UU)"
    1.34 +
    1.35 +end
    1.36 +
    1.37 +
    1.38 +
    1.39 +
    1.40 +
    1.41 +
    1.42 +
    1.43 +