intros goal l a0 a1 b gamma work context j j1 less1 spec0.
apply rule_vimp_imp_gamma with j1; try assumption.
apply rule_vimp_or_imp_gamma; assumption.
Qed.
(*************************************************************)
(* rules for   ...(cons (vimp l (Imp (Imp a b) c)) gamma)... *)

Lemma rule_vimp_falsum_imp_imp_gamma :
forall (goal : form) (l : list Int) (b c : form) (gamma : flist)
(work : nf_list) (context : flist) (j : Int),
search_spec goal (vimp l c :: gamma) work context j ->
search_spec goal (vimp l (Imp (Imp Falsum b) c) :: gamma) work context j.