proposition: Theorem or_distributes_over_and P Q R: P \/ (Q /\ R) <-> (P \/ Q) /\ (P \/ R).
proof: Proof. split. - case; first by split; [left | left]. - by case=>q r; split; [right | right]. intuition. Qed.
imports: mathcomp(ssreflect)