-lemma lsubr_cpg_trans: ∀Rt,c,h,G. lsub_trans … (cpg Rt h c G) lsubr.
-#Rt #c #h #G #L1 #T1 #T2 #H elim H -c -G -L1 -T1 -T2
+lemma lsubr_cpg_trans (Rs) (Rk) (c) (G):
+ lsub_trans … (cpg Rs Rk c G) lsubr.
+#Rs #Rk #c #G #L1 #T1 #T2 #H elim H -c -G -L1 -T1 -T2