X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcontent_pres%2Fcontent2presMatcher.ml;h=7e080ea6956a901180b40f719be98753af00267a;hb=bb55db1e81149b7f3a58c2cd723c096883b66ab4;hp=9a2f0d20b04193b19654f16c43748faf441153b0;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/content_pres/content2presMatcher.ml b/helm/ocaml/content_pres/content2presMatcher.ml
index 9a2f0d20b..7e080ea69 100644
--- a/helm/ocaml/content_pres/content2presMatcher.ml
+++ b/helm/ocaml/content_pres/content2presMatcher.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf
 
 module Ast = CicNotationPt
@@ -56,7 +58,7 @@ struct
       | Ast.Variable _ -> PatternMatcher.Variable
       | Ast.Magic _
       | Ast.Layout _
-      | Ast.Literal _ as t -> assert false
+      | Ast.Literal _ -> assert false
       | _ -> PatternMatcher.Constructor
     let tag_of_pattern = get_tag
     let tag_of_term t = get_tag t