vvalue
addDef :: (Ord ann, HasUnique n unique, MonadState (UniqueInfos ann) m, MonadWriter [UniqueError ann] m)=> n-> ann-> ScopeType-> m ()