author | blanchet |
Thu, 02 Oct 2014 17:39:38 +0200 | |
changeset 58515 | 6cf55e935a9d |
parent 58514 | 1fc93ea5136b |
child 58516 | 1edba0152491 |
--- a/src/HOL/Tools/SMT/verit_isar.ML Thu Oct 02 15:24:51 2014 +0200 +++ b/src/HOL/Tools/SMT/verit_isar.ML Thu Oct 02 17:39:38 2014 +0200 @@ -50,10 +50,8 @@ name0 :: normalizing_prems ctxt concl0)] end) end - else if rule = veriT_tmp_ite_elim_rule orelse null prems then - [standard_step Lemma] else - [standard_step Plain] + [standard_step (if null prems then Lemma else Plain)] end in maps steps_of