pub fn virtual_to_theory<A: Prop>((a, ntauto_a): Virtual<A>) -> Theory<A>
virtual(a) => theory(a).
virtual(a) => theory(a)