intros k a0 a1 c b forces_a0_c forces_a1_c forces_c_b.
unfold forces_t in |- *.
unfold forces_t2 in |- *.
apply forces_a0_imp_c_and_a1_imp_c_and_c_imp_b__forces_a0_or_a1_imp_b with c;
assumption.
Qed.

(* Specifications: *)
Lemma forces_a1_imp_b__forces_a0_imp_a1_imp_b_t :
forall k : kripke_tree,
Is_Monotone_kripke_tree k ->
forall a0 : form,
forces_t k a0 ->
forall a1 b : form, forces_t k (Imp a1 b) -> forces_t k (Imp (Imp a0 a1) b).