Collect attributes introduced in self

Property definitions

nitc :: model_collect $ MModule :: collect_intro_attributes
	# Collect attributes introduced in `self`
	fun collect_intro_attributes(filter: nullable ModelFilter): Set[MAttribute] do
		var res = new HashSet[MAttribute]
		for mproperty in collect_intro_mproperties(filter) do
			if mproperty isa MAttribute then res.add(mproperty)
		end
		return res
	end
src/model/model_collect.nit:605,2--612,4