Goal:
  
  P : E.t -> Prop
  s : t
  P_dec : forall x : E.t, {P x} + {~ P x}
  P_Proper : Proper (E.eq ==> impl) P
  H : ~ List.Exists P (elements s)
  ============================
   ({Exists P s} + {~ Exists P s})


DEBUG:Going to execute:
fun => <coq-core.plugins.ltac::right@0>

Goals:
  
  P : E.t -> Prop
  s : t
  P_dec : forall x : E.t, {P x} + {~ P x}
  P_Proper : Proper (E.eq ==> impl) P
  H : List.Exists P (elements s)
  ============================
   (Exists P s)

  
  P : E.t -> Prop
  s : t
  P_dec : forall x : E.t, {P x} + {~ P x}
  P_Proper : Proper (E.eq ==> impl) P
  H : ~ List.Exists P (elements s)
  ============================
   (~ Exists P s)


DEBUG:Going to execute:
revert H