src/HOLCF/Discrete0.ML
author nipkow
Wed Mar 26 17:58:48 1997 +0100 (1997-03-26)
changeset 2841 c2508f4ab739
child 3018 e65b60b28341
permissions -rw-r--r--
Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow@2841
     1
(*  Title:      HOLCF/Discrete0.ML
nipkow@2841
     2
    ID:         $Id$
nipkow@2841
     3
    Author:     Tobias Nipkow
nipkow@2841
     4
    Copyright   1997 TUM
nipkow@2841
     5
nipkow@2841
     6
Proves that 'a discr is a po
nipkow@2841
     7
*)
nipkow@2841
     8
nipkow@2841
     9
goalw thy [less_discr_def] "less (x::('a::term)discr) x";
nipkow@2841
    10
br refl 1;
nipkow@2841
    11
qed "less_discr_refl";
nipkow@2841
    12
nipkow@2841
    13
goalw thy [less_discr_def]
nipkow@2841
    14
  "!!x. [| less (x::('a::term)discr) y; less y z |] ==> less x z";
nipkow@2841
    15
be trans 1;
nipkow@2841
    16
ba 1;
nipkow@2841
    17
qed "less_discr_trans";
nipkow@2841
    18
nipkow@2841
    19
goalw thy [less_discr_def]
nipkow@2841
    20
  "!!x. [| less (x::('a::term)discr) y; less y x |] ==> x=y";
nipkow@2841
    21
ba 1;
nipkow@2841
    22
qed "less_discr_antisym";