X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2FtacticAstPp.mli;h=fb9b45084ee7a584174ee0e2321b9c5a380a5ce1;hb=7033b0a141f65fd75b435a6f71325ca67f19db61;hp=3308adf924c0bc2dbbd82d1423c18e1a4cd3366b;hpb=157f12c3cb9cc4ed5ba9d1e46c64a593c7fd9481;p=helm.git

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.mli b/helm/ocaml/cic_transformations/tacticAstPp.mli
index 3308adf92..fb9b45084 100644
--- a/helm/ocaml/cic_transformations/tacticAstPp.mli
+++ b/helm/ocaml/cic_transformations/tacticAstPp.mli
@@ -24,13 +24,15 @@
  *)
 
 val pp_tactic: (CicAst.term, string) TacticAst.tactic -> string
-val pp_command: CicAst.term TacticAst.command -> string
+val pp_obj: TacticAst.obj -> string
+val pp_command: (CicAst.term,TacticAst.obj) TacticAst.command -> string
 val pp_macro: ('a -> string) -> 'a TacticAst.macro -> string
-val pp_comment: (CicAst.term,string) TacticAst.comment -> string
-val pp_executable: (CicAst.term,string) TacticAst.code -> string
-val pp_statement: (CicAst.term,string) TacticAst.statement -> string
+val pp_comment: (CicAst.term,TacticAst.obj,string) TacticAst.comment -> string
+val pp_executable: (CicAst.term,TacticAst.obj,string) TacticAst.code -> string
+val pp_statement: (CicAst.term,TacticAst.obj,string) TacticAst.statement -> string
 val pp_macro_ast: CicAst.term TacticAst.macro -> string
 val pp_macro_cic: Cic.term TacticAst.macro -> string
 val pp_tactical: (CicAst.term, string) TacticAst.tactical -> string
 val pp_alias: TacticAst.alias_spec -> string
 
+val pp_cic_command: (Cic.term,Cic.obj) TacticAst.command -> string