debian release 0.0.4-1

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

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index f0ae11879a904a2c42794999010ab7ee6a57f651..ec98b9774214bd6b684f42813711225812ad77ec 100644 (file)
--- a/helm/ocaml/cic/deannotate.ml
+++ b/helm/ocaml/cic/deannotate.ml
@@ -53,7 +53,6 @@ let rec deannotate_term =
       C.LetIn (name, deannotate_term so, deannotate_term ta)
    | C.AAppl (_,l) -> C.Appl (List.map deannotate_term l)
    | C.AConst (_,uri, cookingsno) -> C.Const (uri, cookingsno)
-   | C.AAbst (_,uri) -> C.Abst uri
    | C.AMutInd (_,uri,cookingsno,i) -> C.MutInd (uri,cookingsno,i)
    | C.AMutConstruct (_,uri,cookingsno,i,j) ->
       C.MutConstruct (uri,cookingsno,i,j)
@@ -101,17 +100,20 @@ let deannotate_obj =
        name,
         List.map
          (function 
-           (id,acontext,con) -> 
+           (_,id,acontext,con) -> 
            let context = 
             List.map 
              (function 
-                 Some (n,(C.ADef at)) -> Some (n,(C.Def (deannotate_term at)))
-               | Some (n,(C.ADecl at)) ->Some (n,(C.Decl (deannotate_term at)))
-               | None -> None) acontext  
+                 _,Some (n,(C.ADef at)) ->
+                   Some (n,(C.Def (deannotate_term at)))
+               | _,Some (n,(C.ADecl at)) ->
+                   Some (n,(C.Decl (deannotate_term at)))
+               | _,None -> None
+              ) acontext  
             in
-            (id,context, deannotate_term con) 
+            (id,context,deannotate_term con) 
          ) conjs,
-       deannotate_term bo, deannotate_term ty
+       deannotate_term bo,deannotate_term ty
       )
    | C.AInductiveDefinition (_, tys, params, parno) ->
       C.InductiveDefinition ( List.map deannotate_inductiveType tys,