X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fbinaries%2Ftranscript%2Ftypes.ml;h=1fa7971b761bdccb0596eb6b27d973add38a3993;hb=ddd6560f4e70ec3306d223738a441d5f1dd3eac9;hp=3b774f8324fae1c58bebb7fd575b42e5578fe0ac;hpb=0137a346eaaf9ae7a0b23c7a3b4c6628073b7dfb;p=helm.git

diff --git a/helm/software/components/binaries/transcript/types.ml b/helm/software/components/binaries/transcript/types.ml
index 3b774f832..1fa7971b7 100644
--- a/helm/software/components/binaries/transcript/types.ml
+++ b/helm/software/components/binaries/transcript/types.ml
@@ -37,15 +37,17 @@ type prefix = string
 
 type flavour = Cic.object_flavour option
 
+type params = GrafiteAst.inline_param list
+
 type item = Heading of (string * int)
           | Line of string
 	  | Comment of string
           | Unexport of string
-	  | Include of string
+	  | Include of (bool * string)
           | Coercion of (local * string)
 	  | Notation of (local * string)
 	  | Section of (local * string * string)
-	  | Inline of (local * inline_kind * source * prefix * flavour)
+	  | Inline of (local * inline_kind * source * prefix * flavour * params)
           | Verbatim of string
 	  | Discard of string