src/Pure/Isar/method.ML
changeset 18474 180c99dfbad4
parent 18418 bf448d999b7e
child 18640 61627ae3ddc3
equal deleted inserted replaced
18473:8bf56053475a 18474:180c99dfbad4
   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