equal
deleted
inserted
replaced
210 fun dup_intr th = zero_var_indexes (th RS classical); |
210 fun dup_intr th = zero_var_indexes (th RS classical); |
211 |
211 |
212 fun dup_elim th = |
212 fun dup_elim th = |
213 (case try (fn () => |
213 (case try (fn () => |
214 rule_by_tactic (TRYALL (etac revcut_rl)) |
214 rule_by_tactic (TRYALL (etac revcut_rl)) |
215 (th RSN (2, revcut_rl) |> assumption 2 |> Seq.hd)) () of |
215 ((th RSN (2, revcut_rl)) |> assumption 2 |> Seq.hd)) () of |
216 SOME th' => th' |
216 SOME th' => th' |
217 | _ => error ("Bad format for elimination rule\n" ^ string_of_thm th)); |
217 | _ => error ("Bad format for elimination rule\n" ^ string_of_thm th)); |
218 |
218 |
219 |
219 |
220 (**** Classical rule sets ****) |
220 (**** Classical rule sets ****) |