Parameter Make.G

type transition
val preds_with_transition : ControlLocation.t -> (ControlLocation.t * transition) list