pub fn crosseq_to_eqnn<A: EProp, B: EProp>( cross_eq: CrossEq<A, B>) -> EqNN<A, B>
(a =x= b) => (¬¬a == ¬¬b).
(a =x= b) => (¬¬a == ¬¬b)