changeset 4423 | a129b817b58a |
parent 3842 | b55686a7b22c |
child 5068 | fb28eaa07e01 |
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"; |