example : x ≠ y → x ∉ [y] :=
  fun hne hin =>
    match hin with
    | .head _ _ => hne rfl

example : x ≠ y → x ∉ [y] :=
  fun hne (.head _ _) => hne rfl