{𝕜 : Type u_1} →
  [inst : AddCommGroup 𝕜] →
    [inst_1 : LinearOrder 𝕜] →
      [inst_2 : IsOrderedAddMonoid 𝕜] →
        {p a : 𝕜} →
          [hp : Fact (0 < p)] →
            {motive : (a_1 a_2 : ↑(Set.Icc a (a + p))) → AddCircle.EndpointIdent p a a_1 a_2 → Sort u} →
              {a_1 a_2 : ↑(Set.Icc a (a + p))} →
                (t : AddCircle.EndpointIdent p a a_1 a_2) → motive ⟨a, ⋯⟩ ⟨a + p, ⋯⟩ ⋯ → motive a_1 a_2 t