sig
  type mode = CASES | MODUS
  val fmode : TacCut.mode Tactical.field
  val tactical : Tactical.tactical
  val strategy :
    ?priority:float -> ?modus:bool -> Tactical.selection -> Strategy.strategy
end