# HG changeset patch # User wenzelm # Date 1125777070 -7200 # Node ID f9c5cbdce4227ce27d00cb21a640e5e11e08471e # Parent 6c7ad5e0d200f093be4db894db9cd3d9cc3a5774 tuned method; diff -r 6c7ad5e0d200 -r f9c5cbdce422 src/Cube/ex/ex.thy --- a/src/Cube/ex/ex.thy Sat Sep 03 21:46:16 2005 +0200 +++ b/src/Cube/ex/ex.thy Sat Sep 03 21:51:10 2005 +0200 @@ -20,12 +20,12 @@ (DEPTH_SOLVE_1 (HEADGOAL (ares_tac (facts @ thms)))))) *} "" -ML {* -local val strip_b = thm "strip_b" and strip_s = thm "strip_s" in -fun strip_asms_tac thms i = - REPEAT (resolve_tac [strip_b, strip_s] i THEN DEPTH_SOLVE_1 (ares_tac thms i)) -end -*} +method_setup strip_asms = {* + let val strip_b = thm "strip_b" and strip_s = thm "strip_s" in + Method.thms_args (fn thms => Method.METHOD (fn facts => + REPEAT (resolve_tac [strip_b, strip_s] 1 THEN DEPTH_SOLVE_1 (ares_tac (facts @ thms) 1)))) + end +*} "" subsection {* Simple types *} @@ -122,7 +122,7 @@ by (depth_solve rules) lemma (in Lomega2) "A:* B:* |- ?p : (A->B) -> ((B->Pi P:*.P)->(A->Pi P:*.P))" - apply (tactic {* strip_asms_tac (thms "rules") 1 *}) + apply (strip_asms rules) apply (rule lam_ss) apply (depth_solve1 rules) prefer 2 @@ -155,7 +155,7 @@ lemma (in LP2) "A:* P:A->A->* |- ?p: (Pi a:A. Pi b:A. P^a^b->P^b^a->Pi P:*.P) -> Pi a:A. P^a^a->Pi P:*.P" -- {* Antisymmetry implies irreflexivity: *} - apply (tactic {* strip_asms_tac (thms "rules") 1 *}) + apply (strip_asms rules) apply (rule lam_ss) apply (depth_solve1 rules) prefer 2 @@ -190,7 +190,7 @@ by (depth_solve rules) lemma (in CC) "A:* P:A->* a:A |- ?p : (Pi a:A. P^a)->P^a" - apply (tactic {* strip_asms_tac (thms "rules") 1 *}) + apply (strip_asms rules) apply (rule lam_ss) apply (depth_solve1 rules) prefer 2 @@ -212,7 +212,7 @@ lemma (in LP2) "A:* a:A b:A |- ?p: (Pi P:A->*.P^a->P^b) -> (Pi P:A->*.P^b->P^a)" -- {* Symmetry of Leibnitz equality *} - apply (tactic {* strip_asms_tac (thms "rules") 1 *}) + apply (strip_asms rules) apply (rule lam_ss) apply (depth_solve1 rules) prefer 2