{ι : Type u_1} →
  {ι₁ : Type u_2} →
    {ι₂ : Type u_3} →
      {c : ComplexShape ι} →
        {c₁ : ComplexShape ι₁} →
          {c₂ : ComplexShape ι₂} →
            {e₁ : c₁.Embedding c} →
              {e₂ : c₂.Embedding c} →
                {motive : e₁.AreComplementary e₂ → Sort u} →
                  ((disjoint : ∀ (i₁ : ι₁) (i₂ : ι₂), e₁.f i₁ ≠ e₂.f i₂) →
                      (union : ∀ (i : ι), (∃ i₁, e₁.f i₁ = i) ∨ ∃ i₂, e₂.f i₂ = i) → motive ⋯) →
                    (t : e₁.AreComplementary e₂) → motive t