Is self a subconcept of super_concept?

A concept C1 is a subconcept of C2 if C2 has all the objects of C1.

Property definitions

fca $ FormalConcept :: is_subconcept
	# Is `self` a subconcept of `super_concept`?
	#
	# A concept C1 is a subconcept of C2 if C2 has all the objects of C1.
	fun is_subconcept(super_concept: FormalConcept[O, A]): Bool do
		if self == super_concept then return false
		if objects.length > super_concept.objects.length then return false
		return super_concept.objects.has_all(objects)
	end
lib/fca/fca.nit:206,2--213,4