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