Rule.FactArraySourceval collect_results :
('a ->
((int * Datalog_AbstractSyntax.ConstGen.id UF.t)
* Predicate.FactSet.elt list) ->
'a) ->
'a ->
((int * Datalog_AbstractSyntax.ConstGen.id UF.t) * Predicate.FactSet.elt list) ->
array ->
'a