src/HOLCF/Sprod2.thy

Simplified proofs thanks to addss.

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

Class Instance **::(pcpo,pcpo)po
*)

Sprod2 = Sprod1 + 

arities "**" :: (pcpo,pcpo)po

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

rules

(* instance of << for type ['a ** 'b]  *)

inst_sprod_po	"((op <<)::['a ** 'b,'a ** 'b]=>bool) = less_sprod"

end