-(((Log[S] + (r + (1/2) (σ^2)) ((Subscript[T, 1]) - t)))^2) + (((Log[S] + (r - (1/2) (σ^2)) ((Subscript[T, 1]) - t)))^2) // 
      Simplify