(* *)
(**************************************************************************)
-include "basic_2/substitution/ldrops.ma".
+include "basic_2/multiple/drops.ma".
include "basic_2/static/aaa_lift.ma".
(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************)
(* Properties concerning generic relocation *********************************)
-lemma aaa_lifts: â\88\80G,L1,L2,T2,A,s,des. â\87©*[s, des] L2 â\89¡ L1 â\86\92 â\88\80T1. â\87§*[des] T1 ≡ T2 →
+lemma aaa_lifts: â\88\80G,L1,L2,T2,A,s,des. â¬\87*[s, des] L2 â\89¡ L1 â\86\92 â\88\80T1. â¬\86*[des] T1 ≡ T2 →
⦃G, L1⦄ ⊢ T1 ⁝ A → ⦃G, L2⦄ ⊢ T2 ⁝ A.
#G #L1 #L2 #T2 #A #s #des #H elim H -L1 -L2 -des
[ #L #T1 #H #HT1
<(lifts_inv_nil … H) -H //
-| #L1 #L #L2 #des #d #e #_ #HL2 #IHL1 #T1 #H #HT1
+| #L1 #L #L2 #des #l #m #_ #HL2 #IHL1 #T1 #H #HT1
elim (lifts_inv_cons … H) -H /3 width=10 by aaa_lift/
]
qed.