]> matita.cs.unibo.it Git - helm.git/blobdiff - components/content_pres/objPp.ml
we parametrized CicNotationPt.obj on 'term
[helm.git] / components / content_pres / objPp.ml
index 49936861f2b2f8bbd12c0ea19ac1b9cab068e630..7f272c679aee07418216e1cc4a34d98cc122a37d 100644 (file)
@@ -33,7 +33,7 @@ let obj_to_string n style prefix obj =
      | GrafiteAst.Procedural ->
         let term_pp = CicNotationPp.pp_term in
         let lazy_term_pp = CicNotationPp.pp_term in
-        let obj_pp = CicNotationPp.pp_obj in
+        let obj_pp = CicNotationPp.pp_obj CicNotationPp.pp_term 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
-       String.concat "" (List.map aux script)
+       "\n\n" ^ String.concat "" (List.map aux script)