and optional_info = general_data listand general_data = | GString of string| GVar of string| GInt of int| GColumn of general_data * general_data| GNode of string * general_data list| GList of general_data listval role_of_string : string -> roleval string_of_role : role -> stringval pp_role : role CCFormat.printerval string_of_name : name -> stringval pp_name : name CCFormat.printerval pp_general : general_data CCFormat.printerval pp_general_debugf : general_data CCFormat.printerval pp_generals : general_data list CCFormat.printertype 'a t = | CNF of name * role * 'a list * optional_info| FOF of name * role * 'a * optional_info| TFF of name * role * 'a * optional_info| THF of name * role * 'a * optional_info| TypeDecl of name * string * 'a * optional_info| NewType of name * string * 'a * optional_info| Include of string| IncludeOnly of string * name listtop level declaration
*)type 'a declaration = 'a tFind the name of the declaration, or
Invalid_argument if the declaration is an include directive
include Logtk.Interfaces.PRINT1 with type 'a t := 'a tval pp : 'a CCFormat.printer -> 'a t CCFormat.printerval to_string : 'a CCFormat.printer -> 'a t -> string