src/HOLCF/Discrete0.ML
author wenzelm
Mon Jun 22 17:13:09 1998 +0200 (1998-06-22)
changeset 5068 fb28eaa07e01
parent 3323 194ae2e0c193
child 12030 46d57d0290a2
permissions -rw-r--r--
isatool fixgoal;
     1 (*  Title:      HOLCF/Discrete0.ML
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     Copyright   1997 TUM
     5 
     6 Proves that 'a discr is a po
     7 *)
     8 
     9 Goalw [less_discr_def] "(x::('a::term)discr) << x";
    10 by (rtac refl 1);
    11 qed "less_discr_refl";
    12 
    13 Goalw [less_discr_def]
    14   "!!x. [| (x::('a::term)discr) << y; y << z |] ==> x <<  z";
    15 by (etac trans 1);
    16 by (assume_tac 1);
    17 qed "less_discr_trans";
    18 
    19 Goalw [less_discr_def]
    20   "!!x. [| (x::('a::term)discr) << y; y << x |] ==> x=y";
    21 by (assume_tac 1);
    22 qed "less_discr_antisym";