Definition sound (Gamma : flist) (work : nf_list) (context : flist) :=
  forall a : form, in_gamma Gamma work a -> Derivable context a.

Lemma sound_cons_gamma_weak2 : forall (gamma : flist) (work : nf_list) (context : flist) (a b c : form), (Derivable context a -> Derivable2 context b c) -> sound (a :: gamma) work context -> sound (b :: c :: gamma) work context.