pub fn rev_normalize<A: Prop, N: Nat>( x: Qubit<S<N>, A>, ) -> Qubit<S<Z>, Qubit<N, A>>
qubit^(n+1)(a) => ~qubit^n(a).
qubit^(n+1)(a) => ~qubit^n(a)