pub fn contra<A: DProp, B: DProp>(f: Not<Eq<A, B>>, a: A) -> Not<B>
¬(a = b) ∧ a => ¬b.
¬(a = b) ∧ a => ¬b