{p : ℕ} →
  {inst : Fact (Nat.Prime p)} →
    {k : Type u_1} →
      {inst_1 : CommRing k} →
        {inst_2 : CharP k p} →
          {inst_3 : PerfectRing k p} →
            {V : Type u_2} →
              {inst_4 : AddCommGroup V} →
                {P : Sort u} →
                  {toModule : Module (FractionRing (WittVector p k)) V} →
                    {frob : V ≃ₛₗ[WittVector.FractionRing.frobeniusRingHom p k] V} →
                      {toModule' : Module (FractionRing (WittVector p k)) V} →
                        {frob' : V ≃ₛₗ[WittVector.FractionRing.frobeniusRingHom p k] V} →
                          { toModule := toModule, frob := frob } = { toModule := toModule', frob := frob' } →
                            (toModule ≍ toModule' → frob ≍ frob' → P) → P