pub fn and_e_theory_to_mid<A: Prop>((ea, th_a): And<E<A>, Theory<A>>) -> Mid<A>
((¬¬a ⋁ ¬a) ⋀ theory(a)) => mid(a).
((¬¬a ⋁ ¬a) ⋀ theory(a)) => mid(a)