src/HOLCF/Discrete0.ML
changeset 3018 e65b60b28341
parent 2841 c2508f4ab739
child 3323 194ae2e0c193
     1.1 --- a/src/HOLCF/Discrete0.ML	Wed Apr 23 11:00:48 1997 +0200
     1.2 +++ b/src/HOLCF/Discrete0.ML	Wed Apr 23 11:02:19 1997 +0200
     1.3 @@ -7,16 +7,16 @@
     1.4  *)
     1.5  
     1.6  goalw thy [less_discr_def] "less (x::('a::term)discr) x";
     1.7 -br refl 1;
     1.8 +by (rtac refl 1);
     1.9  qed "less_discr_refl";
    1.10  
    1.11  goalw thy [less_discr_def]
    1.12    "!!x. [| less (x::('a::term)discr) y; less y z |] ==> less x z";
    1.13 -be trans 1;
    1.14 -ba 1;
    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 -ba 1;
    1.22 +by (assume_tac 1);
    1.23  qed "less_discr_antisym";