Definition forces_gamma (gamma : flist) (work : nf_list) 
  (k : kripke_tree) := forall a : form, in_gamma gamma work a -> forces_t k a.

Lemma forces_gamma_cons_gamma_head : forall (gamma : flist) (work : nf_list) (k : kripke_tree) (a : form), forces_gamma (a :: gamma) work k -> forces_t k a.