src/HOLCF/Discrete0.ML
changeset 2841 c2508f4ab739
child 3018 e65b60b28341
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOLCF/Discrete0.ML	Wed Mar 26 17:58:48 1997 +0100
     1.3 @@ -0,0 +1,22 @@
     1.4 +(*  Title:      HOLCF/Discrete0.ML
     1.5 +    ID:         $Id$
     1.6 +    Author:     Tobias Nipkow
     1.7 +    Copyright   1997 TUM
     1.8 +
     1.9 +Proves that 'a discr is a po
    1.10 +*)
    1.11 +
    1.12 +goalw thy [less_discr_def] "less (x::('a::term)discr) x";
    1.13 +br refl 1;
    1.14 +qed "less_discr_refl";
    1.15 +
    1.16 +goalw thy [less_discr_def]
    1.17 +  "!!x. [| less (x::('a::term)discr) y; less y z |] ==> less x z";
    1.18 +be trans 1;
    1.19 +ba 1;
    1.20 +qed "less_discr_trans";
    1.21 +
    1.22 +goalw thy [less_discr_def]
    1.23 +  "!!x. [| less (x::('a::term)discr) y; less y x |] ==> x=y";
    1.24 +ba 1;
    1.25 +qed "less_discr_antisym";