functor (Fenv : FUNCTION_ENV) (P : FORWARD_MONOTONE_PARAMETER->
  sig
    val pre_state : Cil_types.stmt -> P.t
    val post_state : Cil_types.stmt -> P.t
    val fold_on_result : ('-> Cil_types.stmt -> P.t -> 'a) -> '-> 'a
    val iter_on_result : (Cil_types.stmt -> P.t -> unit) -> unit
    val before : P.t Ordered_stmt.ordered_stmt_array
  end