src/HOL/HOL.thy
changeset 51304 0e71a248cacb
parent 51021 1cf4faed8b22
child 51314 eac4bb5adbf9
     1.1 --- a/src/HOL/HOL.thy	Thu Feb 28 13:19:25 2013 +0100
     1.2 +++ b/src/HOL/HOL.thy	Thu Feb 28 13:24:51 2013 +0100
     1.3 @@ -1987,8 +1987,6 @@
     1.4  subsection {* Legacy tactics and ML bindings *}
     1.5  
     1.6  ML {*
     1.7 -fun strip_tac i = REPEAT (resolve_tac [impI, allI] i);
     1.8 -
     1.9  (* combination of (spec RS spec RS ...(j times) ... spec RS mp) *)
    1.10  local
    1.11    fun wrong_prem (Const (@{const_name All}, _) $ Abs (_, _, t)) = wrong_prem t