X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2Fdeannotate.ml;h=289fe7db496afd9cee70b224616e6a6d2ff59e4e;hb=ac7687ce66526f905874ed99a845223c853c558a;hp=2bee18d6f161e3c82c88c0e1d64fcd7f64df5204;hpb=265cf771fbfe217b5f274b999fc3ad887683a09a;p=helm.git

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index 2bee18d6f..289fe7db4 100644
--- a/helm/ocaml/cic/deannotate.ml
+++ b/helm/ocaml/cic/deannotate.ml
@@ -43,7 +43,7 @@ let rec deannotate_term =
       in
        C.Meta (n, l')
    | C.ASort (_,s) -> C.Sort s
-   | C.AImplicit _ -> C.Implicit
+   | C.AImplicit (_, annotation) -> C.Implicit annotation
    | C.ACast (_,va,ty) -> C.Cast (deannotate_term va, deannotate_term ty)
    | C.AProd (_,name,so,ta) ->
       C.Prod (name, deannotate_term so, deannotate_term ta)