
(* legacy ML bindings *)

val antisym_less_inverse = thm "antisym_less_inverse";
val antisym_less = thm "antisym_less";
val bin_chainmax = thm "bin_chainmax";
val bin_chain = thm "bin_chain";
val box_less = thm "box_less";
val chain_def = thm "chain_def";
val chainE = thm "chainE";
val chainI = thm "chainI";
val chain_const = thm "chain_const";
val chain_mono3 = thm "chain_mono3";
val chain_mono = thm "chain_mono";
val chain_shift = thm "chain_shift";
val chain_tord = thm "chain_tord";
val finite_chain_def = thm "finite_chain_def";
val is_lubD1 = thm "is_lubD1";
val is_lub_def = thm "is_lub_def";
val is_lubI = thm "is_lubI";
val is_lub_lub = thm "is_lub_lub";
val is_lub_range_shift = thm "is_lub_range_shift";
val is_ub_def = thm "is_ub_def";
val is_ub_lub = thm "is_ub_lub";
val is_ub_range_shift = thm "is_ub_range_shift";
val lub_bin_chain = thm "lub_bin_chain";
val lub_chain_maxelem = thm "lub_chain_maxelem";
val lub_const = thm "lub_const";
val lub_def = thm "lub_def";
val lub_finch1 = thm "lub_finch1";
val lub_finch2 = thm "lub_finch2";
val lubI = thm "lubI";
val lub_singleton = thm "lub_singleton";
val lub = thm "lub";
val max_in_chain_def = thm "max_in_chain_def";
val minimal2UU = thm "minimal2UU";
val po_eq_conv = thm "po_eq_conv";
val refl_less = thm "refl_less";
val thelubI = thm "thelubI";
val tord_def = thm "tord_def";
val trans_less = thm "trans_less";
val ub_rangeD = thm "ub_rangeD";
val ub_rangeI = thm "ub_rangeI";
val unique_lub = thm "unique_lub";

structure Porder =
struct
  val thy = the_context ();
  val is_ub_def = is_ub_def;
  val is_lub_def = is_lub_def;
  val tord_def = tord_def;
  val chain_def = chain_def;
  val max_in_chain_def = max_in_chain_def;
  val finite_chain_def = finite_chain_def;
  val lub_def = lub_def;
end;
