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