treePartitionCount :: Tree -> Partition -> Int
treePartitionCount t p = sum $ map (treeDissectionCount t) $ partitionOrders p
treePartitionCount :: Tree -> Partition -> Int
treePartitionCount t p = sum $ map (treeDissectionCount t) $ partitionOrders p
treePartitionCount t p = sum $ map (treeDissectionCount t) $ partitionOrders p