X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Facic_content%2FtermAcicContent.ml;h=fddd777f7e13959fac65a76ff202f40ae23f4738;hb=f7aedf0ebd0fb55d3587db4f0753521927dcbb69;hp=a9cf9a4d1f911de80dd81bbdf455f1c593eaa874;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/acic_content/termAcicContent.ml b/helm/ocaml/acic_content/termAcicContent.ml
index a9cf9a4d1..fddd777f7 100644
--- a/helm/ocaml/acic_content/termAcicContent.ml
+++ b/helm/ocaml/acic_content/termAcicContent.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf
 
 module Ast = CicNotationPt
@@ -119,7 +121,7 @@ let ast_of_acic0 term_info acic k =
     | Cic.AConst (id,uri,substs) ->
         register_uri id uri;
         idref id (Ast.Ident (UriManager.name_of_uri uri, aux_substs substs))
-    | Cic.AMutInd (id,uri,i,substs) as t ->
+    | Cic.AMutInd (id,uri,i,substs) ->
         let name = name_of_inductive_type uri i in
         let uri_str = UriManager.string_of_uri uri in
         let puri_str = sprintf "%s#xpointer(1/%d)" uri_str (i+1) in