X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicPp.ml;h=b0e7d64ed31be5f58e6c3c095b29eac6a845ee70;hb=e9f24f9763283b44fcef456177f0390b51db7779;hp=152cdd19835f602987b34bb762987cdb481b3d09;hpb=d0420e9a7ddc25d98e04f6c24046c02b57cb8cc4;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicPp.ml b/helm/ocaml/cic_proof_checking/cicPp.ml
index 152cdd198..b0e7d64ed 100644
--- a/helm/ocaml/cic_proof_checking/cicPp.ml
+++ b/helm/ocaml/cic_proof_checking/cicPp.ml
@@ -88,7 +88,7 @@ let rec pp t l =
          | C.Type  -> "Type"
 	 | C.CProp -> "CProp" 
        )
-    | C.Implicit -> "?"
+    | C.Implicit _ -> "?"
     | C.Prod (b,s,t) ->
        (match b with
           C.Name n -> "(" ^ n ^ ":" ^ pp s l ^ ")" ^ pp t ((Some b)::l)