pub fn comp_inv_to_inv_comp<F: Prop, G: Prop>( _: Comp<Inv<F>, Inv<G>>) -> Inv<Comp<G, F>>
(inv(f) . inv(g)) => inv(g . f).
(inv(f) . inv(g)) => inv(g . f)