-(* Advanced eliminations with path ******************************************)
-
-lemma path_ind_lift (Q:predicate …):
- Q (𝐞) →
- (∀n. Q (𝐞) → Q (𝗱n◗𝐞)) →
- (∀n,l,p. Q (l◗p) → Q (𝗱n◗l◗p)) →
- (∀p. Q p → Q (𝗺◗p)) →
- (∀p. Q p → Q (𝗟◗p)) →
- (∀p. Q p → Q (𝗔◗p)) →
- (∀p. Q p → Q (𝗦◗p)) →
- ∀p. Q p.
-#Q #IH1 #IH2 #IH3 #IH4 #IH5 #IH6 #IH7 #p
-elim p -p [| * [ #n * ] ]
-/2 width=1 by/
-qed-.
+(* Advanced constructions with proj_rmap and path_rcons *********************)
+
+lemma lift_rmap_d_dx (f) (p) (n):
+ ⇂*[ninj n](↑[p]f) = ↑[p◖𝗱n]f.
+// qed.
+
+lemma lift_rmap_m_dx (f) (p):
+ ↑[p]f = ↑[p◖𝗺]f.
+// qed.
+
+lemma lift_rmap_L_dx (f) (p):
+ (⫯↑[p]f) = ↑[p◖𝗟]f.
+// qed.
+
+lemma lift_rmap_A_dx (f) (p):
+ ↑[p]f = ↑[p◖𝗔]f.
+// qed.
+
+lemma lift_rmap_S_dx (f) (p):
+ ↑[p]f = ↑[p◖𝗦]f.
+// qed.
+
+lemma lift_rmap_pap_d_dx (f) (p) (n) (m):
+ ↑[p]f@❨m+n❩ = ↑[p◖𝗱n]f@❨m❩+↑[p]f@❨n❩.
+// qed.