let
is_bottom pdg =
match
snd pdg
with
PdgBottom
->
true
|
_
->
false