From a3f4b9e52563616f6056a9d67344cc326490f2ff Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 13 Nov 2021 23:01:26 +0000 Subject: Fix pretty printing of predicates --- src/hls/PrintRTLBlockInstr.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/hls') diff --git a/src/hls/PrintRTLBlockInstr.ml b/src/hls/PrintRTLBlockInstr.ml index 8e24575..b8e1e2e 100644 --- a/src/hls/PrintRTLBlockInstr.ml +++ b/src/hls/PrintRTLBlockInstr.ml @@ -23,9 +23,9 @@ let ros pp = function | Coq_inr s -> fprintf pp "\"%s\"" (extern_atom s) let rec print_pred_op pp = function - | Plit p -> if fst p then pred pp (snd p) else fprintf pp "~ %a" pred (snd p) - | Pand (p1, p2) -> fprintf pp "(%a & %a)" print_pred_op p1 print_pred_op p2 - | Por (p1, p2) -> fprintf pp "(%a | %a)" print_pred_op p1 print_pred_op p2 + | Plit p -> if fst p then pred pp (snd p) else fprintf pp "~%a" pred (snd p) + | Pand (p1, p2) -> fprintf pp "(%a ∧ %a)" print_pred_op p1 print_pred_op p2 + | Por (p1, p2) -> fprintf pp "(%a ∨ %a)" print_pred_op p1 print_pred_op p2 | Ptrue -> fprintf pp "T" | Pfalse -> fprintf pp "⟂" -- cgit