(* Advanced properties ******************************************************)
lemma nta_cast_alt: ∀h,L,T,W,U. ⦃h, L⦄ ⊢ T : W → ⦃h, L⦄ ⊢ T : U →
- â¦\83h, Lâ¦\84 â\8a¢ â\93£W.T : U.
+ â¦\83h, Lâ¦\84 â\8a¢ â\93\9dW.T : U.
#h #L #T #W #U #HTW #HTU
lapply (nta_mono … HTW … HTU) #HWU
elim (nta_fwd_correct … HTU) -HTU /3 width=3/