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