Goal:
    P : E.t -> Prop  P_Proper : Proper (E.eq ==> impl) P  s : t
  ============================
   (List.Exists P nil -> exists x : elt, InA E.eq x nil /\ P x)


DEBUG:Going to execute:
solve
[ constructor | inversion 1 | intros [x [H H']]; inversion H ]