src/HOLCF/fun2.thy
author nipkow
Sun, 22 Dec 2002 10:43:43 +0100
changeset 13763 f94b569cd610
parent 243 c22b85994e17
permissions -rw-r--r--
added print translations tha avoid eta contraction for important binders.

(*  Title: 	HOLCF/fun2.thy
    ID:         $Id$
    Author: 	Franz Regensburger
    Copyright   1993 Technische Universitaet Muenchen

Class Instance =>::(term,po)po
Definiton of least element
*)

Fun2 = Fun1 + 

(* default class is still term !*)

(* Witness for the above arity axiom is fun1.ML *)

arities fun :: (term,po)po

consts	
	UU_fun  :: "'a::term => 'b::pcpo"

rules

(* instance of << for type ['a::term => 'b::po]  *)

inst_fun_po	"(op <<)::['a=>'b::po,'a=>'b::po ]=>bool = less_fun"

(* definitions *)
(* The least element in type 'a::term => 'b::pcpo *)

UU_fun_def	"UU_fun == (% x.UU)"

end