]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/acic_content/termAcicContent.ml
Dependency coq.moo.opt added to target tests.opt
[helm.git] / helm / ocaml / acic_content / termAcicContent.ml
index a9cf9a4d1f911de80dd81bbdf455f1c593eaa874..fddd777f7e13959fac65a76ff202f40ae23f4738 100644 (file)
@@ -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