reverse arrow direction in DOT backend

This commit is contained in:
Guillaume Bury 2017-07-20 13:55:44 +02:00
parent fa9b35f646
commit 5d4b87673d

View file

@ -42,7 +42,7 @@ module Make(S : Res.S)(A : Arg with type atom := S.atom and type lemma := S.lemm
done
let print_edge fmt i j =
Format.fprintf fmt "%s -> %s;@\n" i j
Format.fprintf fmt "%s <- %s;@\n" i j
let print_edges fmt n =
match S.(n.step) with