{R : Type u_1} →
  {N : Type u_2} →
    {L : Type u_3} →
      {M : Type u_4} →
        [inst : CommRing R] →
          [inst_1 : LieRing L] →
            [inst_2 : LieAlgebra R L] →
              [inst_3 : LieRing N] →
                [inst_4 : LieAlgebra R N] →
                  [inst_5 : LieRing M] →
                    [inst_6 : LieAlgebra R M] →
                      {i : N →ₗ⁅R⁆ L} →
                        {p : L →ₗ⁅R⁆ M} →
                          {motive : LieAlgebra.IsExtension i p → Sort u} →
                            (t : LieAlgebra.IsExtension i p) →
                              ((ker_eq_bot : i.ker = ⊥) →
                                  (range_eq_top : p.range = ⊤) →
                                    (exact : i.range = LieIdeal.toLieSubalgebra R L p.ker) → motive ⋯) →
                                motive t