X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2Fdeannotate.ml;h=27ea5b3b7335779eed38a17bb6dc8ee65d57c3e3;hb=b57c31a1593872c181249135bc05ebd9a72f523b;hp=f0ae11879a904a2c42794999010ab7ee6a57f651;hpb=82466efd82082c6101d1c2c0c217f681b37160e8;p=helm.git

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index f0ae11879..27ea5b3b7 100644
--- a/helm/ocaml/cic/deannotate.ml
+++ b/helm/ocaml/cic/deannotate.ml
@@ -101,17 +101,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,