# File lib/activerdf_rdflite/rdflite.rb, line 414
414:         def subproperties(resource)
415:                 subproperty = Namespace.lookup(:rdfs,:subPropertyOf)
416:                 children_query = Query.new.distinct(:sub).where(:sub, subproperty, resource)
417:                 children_query.reasoning = false
418:                 children = children_query.execute
419: 
420:                 if children.empty?
421:                         [resource]
422:                 else
423:                         [resource] + children.collect{|c| subproperties(c)}.flatten.compact
424:                 end
425:         end