(* Basic_2A1: uses: lsubsv_snv_trans *)
lemma lsubv_cnv_trans (h) (a) (G):
- â\88\80L2,T. â¦\83G,L2â¦\84 ⊢ T ![h,a] →
- â\88\80L1. G â\8a¢ L1 â«\83![h,a] L2 â\86\92 â¦\83G,L1â¦\84 ⊢ T ![h,a].
+ â\88\80L2,T. â\9d¨G,L2â\9d© ⊢ T ![h,a] →
+ â\88\80L1. G â\8a¢ L1 â«\83![h,a] L2 â\86\92 â\9d¨G,L1â\9d© ⊢ T ![h,a].
#h #a #G #L2 #T #H elim H -G -L2 -T //
[ #I #G #K2 #V #HV #IH #L1 #H
elim (lsubv_inv_bind_dx … H) -H * /3 width=1 by cnv_zero/