sig
  type rg
  val compute : Conditions.sequence -> Auto.Range.rg
  val ranges : Auto.Range.rg -> (int * int) Lang.F.Tmap.t
  val bounds : Auto.Range.rg -> (int option * int option) Lang.F.Tmap.t
end