src/HOLCF/Porder0.thy
author berghofe
Fri, 10 Dec 2004 16:48:01 +0100
changeset 15394 a2c34e6ca4f8
parent 14981 e73f8140af78
child 15562 8455c9671494
permissions -rw-r--r--
New code generator for let and split.

(*  Title:      HOLCF/Porder0.thy
    ID:         $Id$
    Author:     Franz Regensburger

Definition of class porder (partial order).
*)

Porder0 = Main +

	(* introduce a (syntactic) class for the constant << *)
axclass sq_ord < type

	(* characteristic constant << for po *)
consts
  "<<"          :: "['a,'a::sq_ord] => bool"        (infixl 55)

syntax (xsymbols)
  "op <<"       :: "['a,'a::sq_ord] => bool"        (infixl "\\<sqsubseteq>" 55)

axclass po < sq_ord
        (* class axioms: *)
refl_less       "x << x"        
antisym_less    "[|x << y; y << x |] ==> x = y"    
trans_less      "[|x << y; y << z |] ==> x << z"
 
end