Collect all classes introduced in self

Property definitions

nitc :: model_collect $ MModule :: collect_intro_mclasses
	# Collect all classes introduced in `self`
	fun collect_intro_mclasses(filter: nullable ModelFilter): Set[MClass] do
		var res = new HashSet[MClass]
		for mclass in intro_mclasses do
			if filter == null or filter.accept_mentity(mclass) then res.add mclass
		end
		return res
	end
src/model/model_collect.nit:547,2--554,4