{L : Type v} →
  {motive : LieRing L → Sort u} →
    (t : LieRing L) →
      ([toAddCommGroup : AddCommGroup L] →
          [toBracket : Bracket L L] →
            (add_lie : ∀ (x y z : L), ⁅x + y, z⁆ = ⁅x, z⁆ + ⁅y, z⁆) →
              (lie_add : ∀ (x y z : L), ⁅x, y + z⁆ = ⁅x, y⁆ + ⁅x, z⁆) →
                (lie_self : ∀ (x : L), ⁅x, x⁆ = 0) →
                  (leibniz_lie : ∀ (x y z : L), ⁅x, ⁅y, z⁆⁆ = ⁅⁅x, y⁆, z⁆ + ⁅y, ⁅x, z⁆⁆) →
                    motive
                      { toAddCommGroup := toAddCommGroup, toBracket := toBracket, add_lie := add_lie,
                        lie_add := lie_add, lie_self := lie_self, leibniz_lie := leibniz_lie }) →
        motive t