∀ {α : Type u_2} {β : Type u_3} {r : α → β → Prop} (c c_1 : Concept α β r) (e_c : c = c_1) (e e_1 : Set α)
  (e_e : e = e_1) (i i_1 : Set β) (e_i : i = i_1) (he : e = c.extent) (hi : i = c.intent),
  c.copy e i he hi = c_1.copy e_1 i_1 ⋯ ⋯