method "deepen" with optional limit;
authorwenzelm
Sat May 14 00:32:16 2011 +0200 (2011-05-14)
changeset 4279802c88bdabe75
parent 42797 f092945f0ef7
child 42799 4e33894aec6d
child 42809 5b45125b15ba
method "deepen" with optional limit;
src/Provers/classical.ML
src/ZF/ex/LList.thy
     1.1 --- a/src/Provers/classical.ML	Fri May 13 23:59:48 2011 +0200
     1.2 +++ b/src/Provers/classical.ML	Sat May 14 00:32:16 2011 +0200
     1.3 @@ -942,7 +942,9 @@
     1.4    Method.setup @{binding fast} (cla_method' fast_tac) "classical prover (depth-first)" #>
     1.5    Method.setup @{binding slow} (cla_method' slow_tac) "classical prover (slow depth-first)" #>
     1.6    Method.setup @{binding best} (cla_method' best_tac) "classical prover (best-first)" #>
     1.7 -  Method.setup @{binding deepen} (cla_method' (fn ctxt => deepen_tac ctxt 4))
     1.8 +  Method.setup @{binding deepen}
     1.9 +    (Scan.lift (Scan.optional Parse.nat 4) --| Method.sections cla_modifiers
    1.10 +      >> (fn n => fn ctxt => SIMPLE_METHOD' (deepen_tac ctxt n)))
    1.11      "classical prover (iterative deepening)" #>
    1.12    Method.setup @{binding safe} (cla_method (CHANGED_PROP o safe_tac))
    1.13      "classical prover (apply safe rules)";
     2.1 --- a/src/ZF/ex/LList.thy	Fri May 13 23:59:48 2011 +0200
     2.2 +++ b/src/ZF/ex/LList.thy	Sat May 14 00:32:16 2011 +0200
     2.3 @@ -113,8 +113,7 @@
     2.4  apply (erule llist.cases)
     2.5  apply (simp_all add: QInl_def QInr_def llist.con_defs)
     2.6  (*LCons case: I simply can't get rid of the deepen_tac*)
     2.7 -apply (tactic "deepen_tac (@{context} addIs [@{thm Ord_trans}]
     2.8 -  addIs [@{thm Int_lower1} RS @{thm subset_trans}]) 2 1")
     2.9 +apply (deepen 2 intro: Ord_trans Int_lower1 [THEN subset_trans])
    2.10  done
    2.11  
    2.12  lemma llist_quniv: "llist(quniv(A)) \<subseteq> quniv(A)"
    2.13 @@ -216,8 +215,7 @@
    2.14  apply (erule llist.cases, simp_all)
    2.15  apply (simp_all add: QInl_def QInr_def llist.con_defs)
    2.16  (*LCons case: I simply can't get rid of the deepen_tac*)
    2.17 -apply (tactic "deepen_tac (@{context} addIs [@{thm Ord_trans}]
    2.18 -  addIs [@{thm Int_lower1} RS @{thm subset_trans}]) 2 1")
    2.19 +apply (deepen 2 intro: Ord_trans Int_lower1 [THEN subset_trans])
    2.20  done
    2.21  
    2.22  lemma flip_in_quniv: "l \<in> llist(bool) ==> flip(l) \<in> quniv(bool)"