(** [(A->B) \/ (B->A)] is equivalent to [(C -> A\/B) -> (C->A) \/ (C->B)]
    (proof from [[Dummett59]]) *)

Definition RightDistributivityImplicationOverDisjunction :=
  forall A B C:Prop, (C -> A\/B) -> (C->A) \/ (C->B).

(* Specifications: *)
Lemma Godel_Dummett_iff_right_distr_implication_over_disjunction : GodelDummett <-> RightDistributivityImplicationOverDisjunction.
Lemma Godel_Dummett_weak_excluded_middle : GodelDummett -> weak_excluded_middle.
Lemma weak_excluded_middle_iff_classical_de_morgan_law : weak_excluded_middle <-> classical_de_morgan_law.