let
iter c f =
PTbl
.iteri (
fun
i s
->
PSet
.iter (
fun
j
->
if
i < j
then
f i j) s) c