∀ {R : Type u_1} {M₁ : Type u_3} {M₂ : Type u_2} [inst : CommSemiring R] [inst_1 : AddCommMonoid M₁]
  [inst_2 : Module R M₁] [inst_3 : AddCommMonoid M₂] [inst_4 : Module R M₂] (f : M₁ ≃ₗ[R] M₂) (φ : Module.Dual R M₂),
  (↑f.symm).dualMap ((↑f).dualMap.toFun φ) = φ