X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Facic_content%2FtermAcicContent.ml;h=4cab1346c96b48f86e8d6b2245045a542fa808e3;hb=d4246a4c72251a9e9cdd5ddfeed19039f8153877;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..4cab1346c 100644
--- a/helm/ocaml/acic_content/termAcicContent.ml
+++ b/helm/ocaml/acic_content/termAcicContent.ml
@@ -119,7 +119,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