{α : Sort u} →
  {op : α → α → α} →
    {o : α} →
      [hc : Std.Commutative op] →
        {motive : Std.LawfulCommIdentity op o → Sort u_1} →
          (t : Std.LawfulCommIdentity op o) → ([toLawfulIdentity : Std.LawfulIdentity op o] → motive ⋯) → motive t