src/HOLCF/Porder0.ML
changeset 4423 a129b817b58a
parent 3842 b55686a7b22c
child 5068 fb28eaa07e01
equal deleted inserted replaced
4422:21238c9d363e 4423:a129b817b58a
    46         (etac trans_less 1),
    46         (etac trans_less 1),
    47         (atac 1)
    47         (atac 1)
    48         ]);
    48         ]);
    49 
    49 
    50 goal Porder0.thy "((x::'a::po)=y) = (x << y & y << x)";
    50 goal Porder0.thy "((x::'a::po)=y) = (x << y & y << x)";
    51 by(fast_tac (HOL_cs addSEs [antisym_less_inverse] addSIs [antisym_less]) 1);
    51 by (fast_tac (HOL_cs addSEs [antisym_less_inverse] addSIs [antisym_less]) 1);
    52 qed "po_eq_conv";
    52 qed "po_eq_conv";