functor (M : Model->
  sig
    val load : M.Sigma.t -> Ctypes.c_object -> M.loc -> M.loc Sigs.value
    val loadvalue : M.Sigma.t -> Ctypes.c_object -> M.loc -> Lang.F.term
    val havoc :
      M.Sigma.t Sigs.sequence ->
      Ctypes.c_object -> M.loc -> Sigs.equation list
    val havoc_length :
      M.Sigma.t Sigs.sequence ->
      Ctypes.c_object -> M.loc -> Lang.F.term -> Sigs.equation list
    val stored :
      M.Sigma.t Sigs.sequence ->
      Ctypes.c_object -> M.loc -> Lang.F.term -> Sigs.equation list
    val copied :
      M.Sigma.t Sigs.sequence ->
      Ctypes.c_object -> M.loc -> M.loc -> Sigs.equation list
    val assigned :
      M.Sigma.t Sigs.sequence ->
      Ctypes.c_object -> M.loc Sigs.sloc -> Sigs.equation list
  end