X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcontent_pres%2FobjPp.ml;h=68badf3242e3514b406c2deb76cf551bc5720061;hb=4480f2625fce077f7389dde595920d25748820eb;hp=aa2e3a6b8f7090955915816164cf60a787dfb1b2;hpb=2951babfd31047ac057714130157da2bc36e906e;p=helm.git

diff --git a/components/content_pres/objPp.ml b/components/content_pres/objPp.ml
index aa2e3a6b8..68badf324 100644
--- a/components/content_pres/objPp.ml
+++ b/components/content_pres/objPp.ml
@@ -42,9 +42,9 @@ let term2pres n ids_to_inner_sorts annterm =
 
 let obj_to_string n style prefix obj =
   let aobj,_,_,ids_to_inner_sorts,ids_to_inner_types,_,_ = Cic2acic.acic_object_of_cic_object obj in
-  let cobj = Acic2content.annobj2content ids_to_inner_sorts ids_to_inner_types aobj in
   match style with
      | GrafiteAst.Declarative ->
+        let cobj = Acic2content.annobj2content ids_to_inner_sorts ids_to_inner_types aobj in
         let bobj = Content2pres.content2pres ids_to_inner_sorts cobj in
         remove_closed_substs ("\n\n" ^
 	   BoxPp.render_to_string (function _::x::_ -> x | _ -> assert false) n (CicNotationPres.mpres_of_box bobj)
@@ -54,5 +54,6 @@ let obj_to_string n style prefix obj =
         let lazy_term_pp = term_pp in
         let obj_pp = CicNotationPp.pp_obj term_pp in
         let aux = GrafiteAstPp.pp_statement ~term_pp ~lazy_term_pp ~obj_pp in
-        let script = Content2Procedural.content2procedural ~ids_to_inner_sorts prefix cobj in
+        let script = Acic2Procedural.acic2procedural 
+	   ~ids_to_inner_sorts ~ids_to_inner_types prefix aobj in
 	"\n\n" ^ String.concat "" (List.map aux script)