def internal_any_map
bend-mathlib@0.8.1.0 · list.bend:1502
import bend-mathlib@0.8.1.0/list.bend as List
import Base
1502def internal_any_map(~A: Type, ~B: Type, ~f: A -> B, ~p: B -> Bool, xs: List<A>) -> {List.any(~&1, ~B, ~p, List.map(~A, ~B, ~f, xs)) == List.any(~&1, ~A, ~(x => p(f(x))), xs) : Bool}:
1503 match xs:
1504 case Nil{}:
1505 {==}
1506 case h <> t:
1507 %internal_any_map(~A, ~B, ~f, ~p, t) : {List.any.if(u => List.any(~&1, ~B, ~p, List.map(~A, ~B, ~f, t)), p(f(h))) == List.any.if(u => _, p(f(h))) : Bool}
1508 {==}