-lemma cpx_aaa_conf_lpx (h): ∀G,L1,T1,A. ⦃G, L1⦄ ⊢ T1 ⁝ A →
- ∀T2. ⦃G, L1⦄ ⊢ T1 ⬈[h] T2 →
- ∀L2. ⦃G, L1⦄ ⊢ ⬈[h] L2 → ⦃G, L2⦄ ⊢ T2 ⁝ A.
-#h #G #L1 #T1 #A #H elim H -G -L1 -T1 -A
-[ #G #L1 #s #X #H
- elim (cpx_inv_sort1 … H) -H #H destruct //
+lemma cpx_aaa_conf_lpx (G) (L1):
+ ∀T1,A. ❪G,L1❫ ⊢ T1 ⁝ A →
+ ∀T2. ❪G,L1❫ ⊢ T1 ⬈ T2 →
+ ∀L2. ❪G,L1❫ ⊢ ⬈ L2 → ❪G,L2❫ ⊢ T2 ⁝ A.
+#G #L1 #T1 #A #H elim H -G -L1 -T1 -A
+[ #G #L1 #s1 #X #H
+ elim (cpx_inv_sort1 … H) -H #s2 #H destruct //