src/HOLCF/Discrete0.ML

domain package:
* theorems are stored in the theory
* creates hierachical name space
* minor changes to some names and values (for consistency),
e.g. cases -> casedist, dists_eq -> dist_eqs,
[take_lemma] -> take_lemmas
* separator between mutual domain definitions changed from "," to "and"
* minor debugging of Domain_Library.mk_var_names

(*  Title:      HOLCF/Discrete0.ML
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1997 TUM

Proves that 'a discr is a po
*)

goalw thy [less_discr_def] "(x::('a::term)discr) << x";
by (rtac refl 1);
qed "less_discr_refl";

goalw thy [less_discr_def]
  "!!x. [| (x::('a::term)discr) << y; y << z |] ==> x <<  z";
by (etac trans 1);
by (assume_tac 1);
qed "less_discr_trans";

goalw thy [less_discr_def]
  "!!x. [| (x::('a::term)discr) << y; y << x |] ==> x=y";
by (assume_tac 1);
qed "less_discr_antisym";