changeset 3554 | b1013660aeff |
parent 3538 | ed9de44032e0 |
child 3575 | 4e9beacb5339 |
--- a/src/Pure/tactic.ML Tue Jul 22 19:33:52 1997 +0200 +++ b/src/Pure/tactic.ML Wed Jul 23 10:22:30 1997 +0200 @@ -471,9 +471,7 @@ (*** Meta-Rewriting Tactics ***) fun result1 tacf mss thm = - case Sequence.pull(tacf mss thm) of - None => None - | Some(thm,_) => Some(thm); + apsome fst (Sequence.pull (tacf mss thm)); (*Rewrite subgoal i only. SELECT_GOAL avoids inefficiencies in goals_conv.*) fun asm_rewrite_goal_tac mode prover_tac mss =