{V : Type u_1} →
  {P : Type u_2} →
    [inst : NormedAddCommGroup V] →
      [inst_1 : InnerProductSpace ℝ V] →
        [inst_2 : MetricSpace P] →
          [inst_3 : NormedAddTorsor V P] →
            {s₁ s₂ : EuclideanGeometry.Sphere P} →
              {p : P} →
                {motive : s₁.IsIntTangentAt s₂ p → Sort u} →
                  ((mem_left : p ∈ s₁) → (mem_right : p ∈ s₂) → (wbtw : Wbtw ℝ s₂.center s₁.center p) → motive ⋯) →
                    (t : s₁.IsIntTangentAt s₂ p) → motive t