Sorts.List
val mem : family -> family list -> bool
val intersect : family list -> family list -> family list