src/HOLCF/Discrete0.ML
changeset 3323 194ae2e0c193
parent 3018 e65b60b28341
child 5068 fb28eaa07e01
     1.1 --- a/src/HOLCF/Discrete0.ML	Fri May 23 18:55:28 1997 +0200
     1.2 +++ b/src/HOLCF/Discrete0.ML	Sun May 25 11:07:52 1997 +0200
     1.3 @@ -6,17 +6,17 @@
     1.4  Proves that 'a discr is a po
     1.5  *)
     1.6  
     1.7 -goalw thy [less_discr_def] "less (x::('a::term)discr) x";
     1.8 +goalw thy [less_discr_def] "(x::('a::term)discr) << x";
     1.9  by (rtac refl 1);
    1.10  qed "less_discr_refl";
    1.11  
    1.12  goalw thy [less_discr_def]
    1.13 -  "!!x. [| less (x::('a::term)discr) y; less y z |] ==> less x z";
    1.14 +  "!!x. [| (x::('a::term)discr) << y; y << z |] ==> x <<  z";
    1.15  by (etac trans 1);
    1.16  by (assume_tac 1);
    1.17  qed "less_discr_trans";
    1.18  
    1.19  goalw thy [less_discr_def]
    1.20 -  "!!x. [| less (x::('a::term)discr) y; less y x |] ==> x=y";
    1.21 +  "!!x. [| (x::('a::term)discr) << y; y << x |] ==> x=y";
    1.22  by (assume_tac 1);
    1.23  qed "less_discr_antisym";