Collect all attributes introduced in self

Property definitions

nitc :: model_collect $ MClass :: collect_intro_mattributes
	# Collect all attributes introduced in `self`
	fun collect_intro_mattributes(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:829,2--836,4