Better styling

lib/analysis/Cfg.ml

@@ -132,8 +132,8 @@ module Make (M: PrintableType) = struct
       }
 
   let addToLastNode (newcontent: elt) (cfg: t) : t =
-    match cfg.empty with
-    | true -> let newnode = Node.create () in
+    if cfg.empty then
+      let newnode = Node.create () in
       { empty = false;
         nodes = NodeSet.singleton newnode;
         edges = NodeMap.empty;
@@ -144,7 +144,7 @@ module Make (M: PrintableType) = struct
         terminal = Some newnode;
         content = NodeMap.singleton newnode [newcontent]
       }
-    | false ->
+    else
       let prevcfgterminal = Option.get cfg.terminal in
       { cfg with
         content = (NodeMap.add_to_list_last