src/HOLCF/Sprod2.thy

map_idI

(*  Title:      HOLCF/Sprod2.thy
    ID:         $Id$
    Author:     Franz Regensburger
    License:    GPL (GNU GENERAL PUBLIC LICENSE)

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

Sprod2 = Sprod1 + 

instance "**"::(pcpo,pcpo)po 
		(refl_less_sprod, antisym_less_sprod, trans_less_sprod)
end