X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Ftacticals.ml;h=ceb2d2de88cb28fc8a7554ee87c1167e5c846af8;hb=6995a7717fd0c760c0608ed9225e9f2dbc14d7d1;hp=a674fe31344a1f840971afececcc9b5a0f19fa61;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/tactics/tacticals.ml b/components/tactics/tacticals.ml
index a674fe313..ceb2d2de8 100644
--- a/components/tactics/tacticals.ml
+++ b/components/tactics/tacticals.ml
@@ -104,7 +104,8 @@ sig
   val semicolon: tactic
   val branch: tactic
   val shift: tactic
-  val pos: int -> tactic
+  val pos: int list -> tactic
+  val wildcard: tactic
   val merge: tactic
   val focus: int list -> tactic
   val unfocus: tactic
@@ -295,6 +296,7 @@ struct
   let branch = cont_proxy C.Branch
   let shift = cont_proxy C.Shift
   let pos i = cont_proxy (C.Pos i)
+  let wildcard =  cont_proxy C.Wildcard
   let merge = cont_proxy C.Merge
   let focus goals = cont_proxy (C.Focus goals)
   let unfocus = cont_proxy C.Unfocus