Collect all property definitions in self

Property definitions

nitc :: model_collect $ MClassDef :: collect_mpropdefs
	# Collect all property definitions in `self`
	fun collect_mpropdefs(filter: nullable ModelFilter): Set[MPropDef] do
		var res = new HashSet[MPropDef]
		for mpropdef in mpropdefs do
			if filter == null or filter.accept_mentity(mpropdef) then res.add mpropdef
		end
		return res
	end
src/model/model_collect.nit:1014,2--1021,4