src/HOLCF/Fun1.thy

added not1_or and if_eq_cancel to simpset()

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


Definition of the partial ordering for the type of all functions => (fun)

REMARK: The ordering on 'a => 'b is only defined if 'b is in class po !!

*)

Fun1 = Pcpo +

instance flat<chfin (flat_imp_chain_finite)

(* to make << defineable: *)
instance fun  :: (term,sq_ord)sq_ord

defs
  less_fun_def "(op <<) == (%f1 f2.!x. f1 x << f2 x)"  
end