equal
deleted
inserted
replaced
139 val RAW_METHOD_CASES = Meth; |
139 val RAW_METHOD_CASES = Meth; |
140 |
140 |
141 fun RAW_METHOD tac = RAW_METHOD_CASES (NO_CASES o tac); |
141 fun RAW_METHOD tac = RAW_METHOD_CASES (NO_CASES o tac); |
142 |
142 |
143 fun METHOD_CASES tac = RAW_METHOD_CASES (fn facts => |
143 fun METHOD_CASES tac = RAW_METHOD_CASES (fn facts => |
144 Seq.THEN (TRY Tactic.conjunction_tac, tac facts)); |
144 Seq.THEN (ALLGOALS Tactic.conjunction_tac, tac facts)); |
145 |
145 |
146 fun METHOD tac = RAW_METHOD (fn facts => |
146 fun METHOD tac = RAW_METHOD (fn facts => ALLGOALS Tactic.conjunction_tac THEN tac facts); |
147 TRY Tactic.conjunction_tac THEN tac facts); |
|
148 |
147 |
149 val fail = METHOD (K no_tac); |
148 val fail = METHOD (K no_tac); |
150 val succeed = METHOD (K all_tac); |
149 val succeed = METHOD (K all_tac); |
151 |
150 |
152 |
151 |