intros k mon b forces_b a.
unfold forces_t in |- *.
unfold forces_t2 in |- *.
apply forces_b__forces_a_imp_b.
apply (kripke_tree_kripke_model k mon).
unfold Suc in |- *; apply succs_refl.
assumption.
Qed.

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