{R : Type u_1} →
  {L : Type u_2} →
    [inst : CommRing R] →
      [inst_1 : LieAdmissibleRing L] →
        {motive : LieAdmissibleAlgebra R L → Sort u} →
          (t : LieAdmissibleAlgebra R L) →
            ([toModule : Module R L] →
                [toIsScalarTower : IsScalarTower R L L] →
                  [toSMulCommClass : SMulCommClass R L L] →
                    motive
                      { toModule := toModule, toIsScalarTower := toIsScalarTower,
                        toSMulCommClass := toSMulCommClass }) →
              motive t