Discrimination and trie removed.

[helm.git] / helm / ocaml / acic_content / termAcicContent.ml

diff --git a/helm/ocaml/acic_content/termAcicContent.ml b/helm/ocaml/acic_content/termAcicContent.ml
index a9cf9a4d1f911de80dd81bbdf455f1c593eaa874..4cab1346c96b48f86e8d6b2245045a542fa808e3 100644 (file)
--- 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