diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-11-13 23:01:26 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-13 23:01:26 +0000 |
commit | a3f4b9e52563616f6056a9d67344cc326490f2ff (patch) | |
tree | 9a2b4220b33079027fbdc3c049c34fdb2803e481 /src/hls | |
parent | 77d5b29503e1359ac1d61209c843091bb14a5ba4 (diff) | |
download | vericert-a3f4b9e52563616f6056a9d67344cc326490f2ff.tar.gz vericert-a3f4b9e52563616f6056a9d67344cc326490f2ff.zip |
Fix pretty printing of predicates
Diffstat (limited to 'src/hls')
-rw-r--r-- | src/hls/PrintRTLBlockInstr.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 "⟂" |