Commit ab753d4f authored by Andrei Paskevich's avatar Andrei Paskevich

update Pretty and Why3 for the new syntax

parent 1380d48f
This diff is collapsed.
......@@ -40,6 +40,8 @@ val print_pr : formatter -> prsymbol -> unit (* proposition name *)
val print_ty : formatter -> ty -> unit (* type *)
val print_vsty : formatter -> vsymbol -> unit (* variable : type *)
val print_quant : formatter -> quant -> unit (* quantifier *)
val print_binop : formatter -> binop -> unit (* binary operator *)
val print_const : formatter -> constant -> unit (* int/real constant *)
val print_pat : formatter -> pattern -> unit (* pattern *)
val print_term : formatter -> term -> unit (* term *)
......@@ -59,6 +61,5 @@ val print_tdecl : formatter -> tdecl -> unit
val print_task : formatter -> task -> unit
val print_theory : formatter -> theory -> unit
val print_named_task : formatter -> string -> task -> unit
val print_namespace : formatter -> string -> theory -> unit
......@@ -109,7 +109,8 @@ let syntax_arguments s print fmt l =
(** {2 use printers} *)
let print_prelude fmt pl =
fprintf fmt "%a@\n" (print_list newline pp_print_string) pl
let println fmt s = fprintf fmt "%s@\n" s in
print_list nothing println fmt pl
let print_th_prelude task fmt pm =
let th_used = task_fold (fun acc -> function
......
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment