author | paulson |
Thu, 21 Mar 1996 13:02:26 +0100 | |
changeset 1601 | 0ef6ea27ab15 |
parent 1479 | 21eb5e156d91 |
child 2640 | ee4dfce170a0 |
permissions | -rw-r--r-- |
(* 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