intros a gamma work c in_gamma0.
elim in_gamma0; clear in_gamma0 c.
intros n c nth.
apply In_Gamma with (S n).
apply My_NthS; assumption.
intros n c nth.
apply In_Work1 with n; assumption.
Qed.

(* Specifications: *)
Lemma in_gamma_cons_gamma_head :
forall (a : form) (gamma : flist) (work : nf_list),
in_gamma (a :: gamma) work a.