-lemma nta_appl_abst (a) (h) (p) (G) (L):
- ∀n. appl a n →
- ∀V,W. ⦃G,L⦄ ⊢ V :[a,h] W →
- ∀T,U. ⦃G,L.ⓛW⦄ ⊢ T :[a,h] U → ⦃G,L⦄ ⊢ ⓐV.ⓛ{p}W.T :[a,h] ⓐV.ⓛ{p}W.U.
-#a #h #p #G #L #n #Ha #V #W #H1 #T #U #H2
+lemma nta_appl_abst (h) (a) (p) (G) (L):
+ ∀n. ad a n →
+ ∀V,W. ⦃G,L⦄ ⊢ V :[h,a] W →
+ ∀T,U. ⦃G,L.ⓛW⦄ ⊢ T :[h,a] U → ⦃G,L⦄ ⊢ ⓐV.ⓛ{p}W.T :[h,a] ⓐV.ⓛ{p}W.U.
+#h #a #p #G #L #n #Ha #V #W #H1 #T #U #H2