sig
  val index : Wp.Sigs.s_lval -> Wp.Lang.F.term -> Wp.Sigs.s_lval
  val field : Wp.Sigs.s_lval -> Cil_types.fieldinfo -> Wp.Sigs.s_lval
  val equal : Wp.Sigs.s_lval -> Wp.Sigs.s_lval -> bool
  type 'a model
  type state
  val create :
    (module Wp.Sigs.Model with type Sigma.t = 'a) -> 'Wp.Mstate.model
  val state : 'Wp.Mstate.model -> '-> Wp.Mstate.state
  val lookup : Wp.Mstate.state -> Wp.Lang.F.term -> Wp.Sigs.mval
  val apply :
    (Wp.Lang.F.term -> Wp.Lang.F.term) -> Wp.Mstate.state -> Wp.Mstate.state
  val iter :
    (Wp.Sigs.mval -> Wp.Lang.F.term -> unit) -> Wp.Mstate.state -> unit
  val updates :
    Wp.Mstate.state Wp.Sigs.sequence ->
    Wp.Lang.F.Vars.t -> Wp.Sigs.update Bag.t
end