Conjectures and Hypotheses inside every conjecture and in the sequents now

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

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index f0ae11879a904a2c42794999010ab7ee6a57f651..27ea5b3b7335779eed38a17bb6dc8ee65d57c3e3 100644 (file)
--- 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,