X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcic%2Fdeannotate.ml;h=ec98b9774214bd6b684f42813711225812ad77ec;hb=8f89cdd08d9ee0a243cf84201bf42e5503759ee3;hp=f0ae11879a904a2c42794999010ab7ee6a57f651;hpb=37f08b2aba9f17d9d609ca0f57d607f437a3d3fc;p=helm.git

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index f0ae11879..ec98b9774 100644
--- 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,