Module Wp.Mstate

val equal : Sigs.s_lval -> Sigs.s_lval -> bool
type 'a model
type state
val create : (module Sigs.Model with type Sigma.t = 'a) -> 'a model
val state : 'a model -> 'a -> state
val lookup : state -> Lang.F.term -> Sigs.mval
val apply : ( Lang.F.term -> Lang.F.term ) -> state -> state
val iter : ( Sigs.mval -> Lang.F.term -> unit ) -> state -> unit