// qed.
lemma structure_d_sn (p) (n):
- āp = ā(š±āØnā©āp).
+ āp = ā(š±nāp).
// qed.
lemma structure_L_sn (p):
(* Constructions with list_rcons ********************************************)
lemma structure_d_dx (p) (n):
- āp = ā(pāš±āØnā©).
+ āp = ā(pāš±n).
#p #n <structure_append //
qed.