lemma structure_pic (p):
⊗p ϵ 𝐈.
-#p @(list_ind_rcons … p) -p
+#p elim p -p
[ <structure_empty //
-| #p * [ #n ] #IH
+| * [ #k | #k #d ] #p #IH
[ <structure_d_dx //
+ | <structure_d2_dx //
| <structure_m_dx //
| <structure_L_dx //
| <structure_A_dx //