(* File: In_Gamma.v  (last edited on 27/10/2000) (c) Klaus Weich  *)
Require Export In_NGamma.
Inductive in_gamma (gamma : flist) (work : nf_list) : form -> Set :=
| In_Gamma :
forall (n : nat) (a : form),
my_nth form n gamma a -> in_gamma gamma work a
| In_Work1 :
forall (n : nat) (a : normal_form),
my_nth normal_form n work a -> in_gamma gamma work (nf2form a).

Lemma in_gamma_cons_gamma_tail :
forall (a : form) (gamma : flist) (work : nf_list) (c : form),
in_gamma gamma work c -> in_gamma (a :: gamma) work c.