marginalized historic strip_tac;
authorwenzelm
Thu Feb 28 13:24:51 2013 +0100 (2013-02-28)
changeset 513040e71a248cacb
parent 51303 4cca272150ab
child 51305 4a96f9e28e6d
marginalized historic strip_tac;
src/Doc/IsarRef/ML_Tactic.thy
src/HOL/Bali/Basis.thy
src/HOL/HOL.thy
src/HOL/MicroJava/J/JTypeSafe.thy
     1.1 --- a/src/Doc/IsarRef/ML_Tactic.thy	Thu Feb 28 13:19:25 2013 +0100
     1.2 +++ b/src/Doc/IsarRef/ML_Tactic.thy	Thu Feb 28 13:24:51 2013 +0100
     1.3 @@ -119,7 +119,6 @@
     1.4    \begin{tabular}{lll}
     1.5      @{ML stac}~@{text "a 1"} & & @{text "subst a"} \\
     1.6      @{ML hyp_subst_tac}~@{text 1} & & @{text hypsubst} \\
     1.7 -    @{ML strip_tac}~@{text 1} & @{text "\<approx>"} & @{text "intro strip"} \\
     1.8      @{ML split_all_tac}~@{text 1} & & @{text "simp (no_asm_simp) only: split_tupled_all"} \\
     1.9        & @{text "\<approx>"} & @{text "simp only: split_tupled_all"} \\
    1.10        & @{text "\<lless>"} & @{text "clarify"} \\
     2.1 --- a/src/HOL/Bali/Basis.thy	Thu Feb 28 13:19:25 2013 +0100
     2.2 +++ b/src/HOL/Bali/Basis.thy	Thu Feb 28 13:24:51 2013 +0100
     2.3 @@ -9,6 +9,8 @@
     2.4  
     2.5  section "misc"
     2.6  
     2.7 +ML {* fun strip_tac i = REPEAT (resolve_tac [impI, allI] i) *}
     2.8 +
     2.9  declare split_if_asm  [split] option.split [split] option.split_asm [split]
    2.10  declaration {* K (Simplifier.map_ss (fn ss => ss addloop ("split_all_tac", split_all_tac))) *}
    2.11  declare if_weak_cong [cong del] option.weak_case_cong [cong del]
     3.1 --- a/src/HOL/HOL.thy	Thu Feb 28 13:19:25 2013 +0100
     3.2 +++ b/src/HOL/HOL.thy	Thu Feb 28 13:24:51 2013 +0100
     3.3 @@ -1987,8 +1987,6 @@
     3.4  subsection {* Legacy tactics and ML bindings *}
     3.5  
     3.6  ML {*
     3.7 -fun strip_tac i = REPEAT (resolve_tac [impI, allI] i);
     3.8 -
     3.9  (* combination of (spec RS spec RS ...(j times) ... spec RS mp) *)
    3.10  local
    3.11    fun wrong_prem (Const (@{const_name All}, _) $ Abs (_, _, t)) = wrong_prem t
     4.1 --- a/src/HOL/MicroJava/J/JTypeSafe.thy	Thu Feb 28 13:19:25 2013 +0100
     4.2 +++ b/src/HOL/MicroJava/J/JTypeSafe.thy	Thu Feb 28 13:24:51 2013 +0100
     4.3 @@ -198,7 +198,7 @@
     4.4  
     4.5  -- "several simplifications, XcptE, XcptEs, XcptS, Skip, Nil??"
     4.6  apply( simp_all)
     4.7 -apply( tactic "ALLGOALS strip_tac")
     4.8 +apply( tactic "ALLGOALS (REPEAT o resolve_tac [impI, allI])")
     4.9  apply( tactic {* ALLGOALS (eresolve_tac [@{thm ty_expr.cases}, @{thm ty_exprs.cases}, @{thm wt_stmt.cases}]
    4.10                   THEN_ALL_NEW (full_simp_tac (global_simpset_of @{theory Conform}))) *})
    4.11  apply(tactic "ALLGOALS (EVERY' [REPEAT o (etac conjE), REPEAT o hyp_subst_tac])")