let get_trans ?(attributes=TagSet.empty) auto states tag =
StateSet.fold (fun q acc ->
List.fold_left (fun ((tr_acc, l_acc, r_acc) as acc) (ts, tr) ->
- let ts = if ts == TagSet.star then TagSet.diff ts attributes else ts
- in
+(* let ts = if ts == TagSet.star then TagSet.diff ts attributes else ts
+ in *)
let b = TagSet.mem tag ts in
- let () = LOG(__ "transition" 3 "tag=<%s>, %s: %a7C"
+ LOG(__ "transition" 3 "tag=<%s>, %s: %a"
(Tag.to_string tag)
(if b then " taking" else "not taking")
- Transition.print tr)
- in
+ Transition.print tr);
if b then
let _, _, _, f = Transition.node tr in
let l, r = Formula.st f in