src/HOLCF/Discrete0.ML
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 5068 fb28eaa07e01
child 12030 46d57d0290a2
permissions -rw-r--r--
tidying
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
wenzelm@5068
     9
Goalw [less_discr_def] "(x::('a::term)discr) << x";
paulson@3018
    10
by (rtac refl 1);
nipkow@2841
    11
qed "less_discr_refl";
nipkow@2841
    12
wenzelm@5068
    13
Goalw [less_discr_def]
slotosch@3323
    14
  "!!x. [| (x::('a::term)discr) << y; y << z |] ==> x <<  z";
paulson@3018
    15
by (etac trans 1);
paulson@3018
    16
by (assume_tac 1);
nipkow@2841
    17
qed "less_discr_trans";
nipkow@2841
    18
wenzelm@5068
    19
Goalw [less_discr_def]
slotosch@3323
    20
  "!!x. [| (x::('a::term)discr) << y; y << x |] ==> x=y";
paulson@3018
    21
by (assume_tac 1);
nipkow@2841
    22
qed "less_discr_antisym";