Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/Fun2.thy
author regensbu
Thu, 29 Jun 1995 16:28:40 +0200
changeset 1168 74be52691d62
parent 442 13ac1fd0a14d
child 1479 21eb5e156d91
permissions -rw-r--r--
The curried version of HOLCF is now just called HOLCF. The old uncurried version is no longer supported

(*  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"

defs

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

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

end
isabelle