debian version 0.0.6-6

[helm.git] / helm / ocaml / cic / deannotate.ml

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index df59305fea29d1af45a52dc3f771234775e94448..289fe7db496afd9cee70b224616e6a6d2ff59e4e 100644 (file)
--- 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)
@@ -108,7 +108,7 @@ let deannotate_obj =
             List.map 
              (function 
                  _,Some (n,(C.ADef at)) ->
-                   Some (n,(C.Def (deannotate_term at)))
+                   Some (n,(C.Def ((deannotate_term at),None)))
                | _,Some (n,(C.ADecl at)) ->
                    Some (n,(C.Decl (deannotate_term at)))
                | _,None -> None