X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2Fcontinuationals.mli;h=d3fdf716c895d7a86b3c58ac01b79d8e4684a17f;hb=3f57ed2589601e79478c85d74708d8ebdec2cf20;hp=293d056b34e30ef7b29413ee8aeb6990454fc711;hpb=0fde70bd19b8fdfa72b807b9713a02ad1bd91b5b;p=helm.git

diff --git a/matita/components/ng_tactics/continuationals.mli b/matita/components/ng_tactics/continuationals.mli
index 293d056b3..d3fdf716c 100644
--- a/matita/components/ng_tactics/continuationals.mli
+++ b/matita/components/ng_tactics/continuationals.mli
@@ -29,19 +29,21 @@ type goal = int
 
 (** {2 Goal stack} *)
 
+(* Key value pairs *)
+type parameters = (string * string) list
+
 module Stack:
 sig
   type switch = Open of goal | Closed of goal
   type locator = int * switch
   type tag = [ `BranchTag | `FocusTag | `NoTag ]
-  type entry = locator list * locator list * locator list * tag
+  type entry = locator list * locator list * locator list * tag * parameters
   type t = entry list
 
   val empty: t
 
   val find_goal: t -> goal            (** find "next" goal *)
   val is_empty: t -> bool             (** a singleton empty level *)
-  val of_metasenv: Cic.metasenv -> t
   val of_nmetasenv: (goal * 'a) list -> t
   val head_switches: t -> switch list (** top level switches *)
   val head_goals: t -> goal list      (** top level goals *)