functor (V : VarUsage) (M : Memory.Model) -> Memory.Model