intros k mon a0 a1 b forces_a0_a1_b.
unfold forces_t in |- *.
unfold forces_t2 in |- *.
apply forces_a0_imp_a1_imp_b__forces_a0_and_a1_imp_b.
apply (kripke_tree_kripke_model k mon).
unfold Suc in |- *; apply succs_refl.
assumption.
Qed.

Lemma forces_a0_imp_c_and_a1_imp_c_and_c_imp_b__forces_a0_or_a1_imp_b_t :
forall (k : kripke_tree) (a0 a1 c b : form),
forces_t k (Imp a0 c) ->
forces_t k (Imp a1 c) ->
forces_t k (Imp c b) -> forces_t k (Imp (OrF a0 a1) b).