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

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index 2445c3771..f0ae11879 100644
--- a/helm/ocaml/cic/deannotate.ml
+++ b/helm/ocaml/cic/deannotate.ml
@@ -27,12 +27,21 @@ let expect_possible_parameters = ref false;;
 
 exception NotExpectingPossibleParameters;;
 
+(* converts annotated terms into cic terms (forgetting ids and names) *)
 let rec deannotate_term =
  let module C = Cic in
   function
      C.ARel (_,n,_) -> C.Rel n
    | C.AVar (_,uri) -> C.Var uri
-   | C.AMeta (_,n) -> C.Meta n
+   | C.AMeta (_,n, l) ->
+      let l' =
+       List.map
+        (function
+            None -> None
+          | Some at -> Some (deannotate_term at)
+        ) l
+      in
+       C.Meta (n, l')
    | C.ASort (_,s) -> C.Sort s
    | C.AImplicit _ -> C.Implicit
    | C.ACast (_,va,ty) -> C.Cast (deannotate_term va, deannotate_term ty)
@@ -89,7 +98,19 @@ let deannotate_obj =
        deannotate_term ty)
    | C.ACurrentProof (_, name, conjs, bo, ty) ->
       C.CurrentProof (
-       name, List.map (fun (id,con) -> (id,deannotate_term con)) conjs,
+       name,
+        List.map
+         (function 
+           (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  
+            in
+	     (id,context, deannotate_term con) 
+         ) conjs,
        deannotate_term bo, deannotate_term ty
       )
    | C.AInductiveDefinition (_, tys, params, parno) ->