Property definitions

nitc $ ReduceAction :: concat
	fun concat(l1, l2 : Array[Object]): Array[Object]
	do
		if l1.is_empty then return l2
		l1.append(l2)
		return l1
	end
src/parser/parser_work.nit:293,2--298,4