Interpreted_automata.UnrollUnnaturalCould enter a loop only by head nodes
module Vertex_Set : Datatype.S_with_collections with type t = Vertex.Set.tmodule Version :
Datatype.S_with_collections with type t = Vertex.t * Vertex.Set.tmodule G : sig ... endmodule WTO : sig ... endval unroll_unnatural_loop : automaton -> wto -> Compute.wto_index_table -> G.t