sig
  type interfid = Repress | Matcher | Bound
  val get_interf_character :
    Protein.Abstract.SLBD.interfid -> Protein.Abstract.interf_character
  type initstate = ActiveInitState | RepressedInitState
  and state = ActiveState | RepressedState | BoundState
  and config = unit
  and cons = Protein.Abstract.SLBD.initstate * Protein.Abstract.SLBD.config
  val num_lbprojs : int
  val num_sbprojs : int
end