Collect all virtual types introduced in self

Property definitions

nitc :: model_collect $ MPackage :: collect_intro_vts
	# Collect all virtual types introduced in `self`
	fun collect_intro_vts(filter: nullable ModelFilter): Set[MVirtualTypeProp] do
		var res = new HashSet[MVirtualTypeProp]
		for mgroup in mgroups do
			for mmodule in collect_all_mmodules(filter) do
				res.add_all mmodule.collect_intro_vts(filter)
			end
		end
		return res
	end
src/model/model_collect.nit:407,2--416,4