{K : Type u_2} →
  {L : Type u_3} →
    [inst : CommRing K] →
      [inst_1 : Ring L] →
        [inst_2 : Algebra K L] →
          {motive : IsPurelyInseparable.HasExponent K L → Sort u} →
            ((has_exponent : ∃ e, ∀ (a : L), a ^ ringExpChar K ^ e ∈ (algebraMap K L).range) → motive ⋯) →
              (t : IsPurelyInseparable.HasExponent K L) → motive t