def internal_contains_cons

bend-mathlib@0.8.1.0 · list.bend:581

import Base

581def internal_contains_cons(~A: Data, ~eq: A -> A -> Bool, h: A, -t: List<&2, A>, +x: A) -> {Bool.or(eq(h, x), List.contains(~A, ~eq, t, x)) == List.contains(~A, ~eq, h <> t, x) : Bool}:
582  internal_any_if(eq(h, x), List.contains(~A, ~eq, t, x))