intros; assumption.
Qed.
(*****************************************************)
(* rules for   ...(cons (Imp (AndF a0 a1) b) gamma)... *)

Lemma rule_vimp_and_imp_gamma :
forall (goal : form) (l : list Int) (a0 a1 b : form)
(gamma : flist) (work : nf_list) (context : flist)
(j : Int),
search_spec goal (vimp l (Imp a0 (Imp a1 b)) :: gamma) work context j ->
search_spec goal (vimp l (Imp (AndF a0 a1) b) :: gamma) work context j.