def head_is_ref
import unified-nsga-iii@0.2.2.0/survival.bend as Survivalimport Base
737def head_is_ref(bags: List<&2, Bag>, +r: Nat) -> Bool:
738 match bags:
739 case Nil{}:
740 False{}
741 case Bag{+ref, count, members} <> _:
742 Nat.is_eq(ref, r)