module Ds = CicDischarge
module PO = ProceduralOptimizer
module N = CicNotationPt
+module A2P = Acic2Procedural
let mpres_document pres_box =
Xml.add_xml_declaration (CicNotationPres.print_box pres_box)
failwith msg
in
if List.mem G.IPProcedural params then begin
-(*
- PO.debug := true;
+
+ Procedural2.debug := A2P.is_debug 1 params;
+ PO.debug := A2P.is_debug 2 params;
+(*
PO.critical := false;
- Acic2Procedural.tex_formatter := Some Format.std_formatter;
+ A2P.tex_formatter := Some Format.std_formatter;
let _ = ProceduralTeX.tex_of_obj Format.std_formatter obj in
*)
let obj, info = PO.optimize_obj obj in
~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp
in
let aux = function
- | G.Executable (_, G.Command (_, G.Obj (_, N.Inductive _))) as stm
+ | G.Executable (_, G.Command (_, G.Obj (_, N.Inductive _)))
+ | G.Executable (_, G.Command (_, G.Obj (_, N.Record _))) as stm
->
let hc = !Acic2content.hide_coercions in
if List.mem G.IPCoercions params then
enable_notations true;
Acic2content.hide_coercions := hc;
str
-(* FG: we disable notation for Inductive to avoid recursive notation *)
+(* FG: we disable notation for inductive types to avoid recursive notation *)
| G.Executable (_, G.Tactic _) as stm ->
let hc = !Acic2content.hide_coercions in
Acic2content.hide_coercions := false;
str
in
let script =
- Acic2Procedural.procedural_of_acic_object
+ A2P.procedural_of_acic_object
~ids_to_inner_sorts ~ids_to_inner_types ~info params aobj
in
String.concat "" (List.map aux script) ^ "\n\n"
let aux = GrafiteAstPp.pp_statement
~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp in
let script =
- Acic2Procedural.procedural_of_acic_term
+ A2P.procedural_of_acic_term
~ids_to_inner_sorts ~ids_to_inner_types params context annterm
in
String.concat "" (List.map aux script)