Show Universes.
eexact H.
Qed.
Tactic Notation "admit" := case proof_admitted.
Require Export Coq.Program.Program.
Global Set Implicit Arguments.
Global Set Asymmetric Patterns.
Fixpoint combine_sig_helper {T} {P : T -> Prop} (ls : list T) : (forall x, In x ls -> P x) -> list (sig P).
admit.
Defined.
admit.
Defined.

Lemma Forall_forall1_transparent_helper_2 {A P} {x : A} {xs : list A} {l : list A}
(H : Forall P l) (H' : x::xs = l)
: Forall P xs.