pub fn to_or<A: DProp, B: DProp>(f: Imply<A, B>) -> Or<Not<A>, B>
(a => b) => (¬a ∨ b).
(a => b) => (¬a ∨ b)