∀ {R : Type u_1} [inst : CommRing R] {ι₂ : Type u_4} {M₂ : Type u_3} {N₂ : Type u_2} [inst_1 : AddCommGroup M₂]
  [inst_2 : Module R M₂] [inst_3 : AddCommGroup N₂] [inst_4 : Module R N₂] (Q : RootPairing ι₂ R M₂ N₂),
  Q.flip.IsPerfPair