X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcontent_pres%2FobjPp.ml;h=f83b18635e6198fd33f4bdb237ed2a3c76f0bfd7;hb=2e3e85acace6942eebcfac570ce6b33134d1a3dd;hp=3cdad5528a56dac0b13021fa9f743b74d95ee02b;hpb=5cd2bfac5e47232f9e1a8f6189bcc49a3e73007f;p=helm.git

diff --git a/components/content_pres/objPp.ml b/components/content_pres/objPp.ml
index 3cdad5528..f83b18635 100644
--- a/components/content_pres/objPp.ml
+++ b/components/content_pres/objPp.ml
@@ -49,17 +49,17 @@ let obj_to_string n style prefix obj =
 	failwith msg
   in
   match style with
-     | GrafiteAst.Declarative ->
+     | 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)
 	)
-     | GrafiteAst.Procedural ->
+     | GrafiteAst.Procedural depth ->
         let term_pp = term2pres (n - 8) ids_to_inner_sorts in
         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 = Acic2Procedural.acic2procedural 
-	   ~ids_to_inner_sorts ~ids_to_inner_types prefix aobj in
+	   ~ids_to_inner_sorts ~ids_to_inner_types ?depth prefix aobj in
 	"\n\n" ^ String.concat "" (List.map aux script)