src/Provers/classical.ML
changeset 51798 ad3a241def73
parent 51718 c18cf90cb392
child 52462 a241826ed003
--- a/src/Provers/classical.ML	Sat Apr 27 11:37:50 2013 +0200
+++ b/src/Provers/classical.ML	Sat Apr 27 20:50:20 2013 +0200
@@ -25,8 +25,8 @@
   val swap: thm  (* ~ P ==> (~ R ==> P) ==> R *)
   val classical: thm  (* (~ P ==> P) ==> P *)
   val sizef: thm -> int  (* size function for BEST_FIRST, typically size_of_thm *)
-  val hyp_subst_tacs: (int -> tactic) list (* optional tactics for substitution in
-    the hypotheses; assumed to be safe! *)
+  val hyp_subst_tacs: (Proof.context -> int -> tactic) list (* optional tactics for
+    substitution in the hypotheses; assumed to be safe! *)
 end;
 
 signature BASIC_CLASSICAL =
@@ -697,7 +697,7 @@
        [eq_assume_tac,
         eq_mp_tac,
         bimatch_from_nets_tac safe0_netpair,
-        FIRST' Data.hyp_subst_tacs,
+        FIRST' (map (fn tac => tac ctxt) Data.hyp_subst_tacs),
         bimatch_from_nets_tac safep_netpair])
   end;
 
@@ -733,7 +733,7 @@
      (FIRST'
        [eq_assume_contr_tac,
         bimatch_from_nets_tac safe0_netpair,
-        FIRST' Data.hyp_subst_tacs,
+        FIRST' (map (fn tac => tac ctxt) Data.hyp_subst_tacs),
         n_bimatch_from_nets_tac 1 safep_netpair,
         bimatch2_tac safep_netpair])
   end;