X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2Fdeannotate.ml;h=2bee18d6f161e3c82c88c0e1d64fcd7f64df5204;hb=60c7321771851b82493bb202185ee184f1e7a3d1;hp=df59305fea29d1af45a52dc3f771234775e94448;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
index df59305fe..2bee18d6f 100644
--- a/helm/ocaml/cic/deannotate.ml
+++ b/helm/ocaml/cic/deannotate.ml
@@ -108,7 +108,7 @@ let deannotate_obj =
 	     List.map 
 	      (function 
 	          _,Some (n,(C.ADef at)) ->
-                   Some (n,(C.Def (deannotate_term at)))
+                   Some (n,(C.Def ((deannotate_term at),None)))
 	        | _,Some (n,(C.ADecl at)) ->
                    Some (n,(C.Decl (deannotate_term at)))
 	        | _,None -> None