"'a set list list"↔"'a set set set" equivalence for all_partitions_of_list (leaving one proof obligation)