-lemma cpms_cast_sn (n) (h) (G) (L):
- â\88\80U1,U2. â¦\83G,Lâ¦\84 â\8a¢ U1 â\9e¡*[n,h] U2 →
- â\88\80T1,T2. â¦\83G,Lâ¦\84 â\8a¢ T1 â\9e¡[n,h] T2 →
- â¦\83G,Lâ¦\84 â\8a¢ â\93\9dU1.T1 â\9e¡*[n,h] ⓝU2.T2.
-#n #h #G #L #U1 #U2 #H @(cpms_ind_sn … H) -U1 -n
+lemma cpms_cast_sn (h) (n) (G) (L):
+ â\88\80U1,U2. â\9dªG,Lâ\9d« â\8a¢ U1 â\9e¡*[h,n] U2 →
+ â\88\80T1,T2. â\9dªG,Lâ\9d« â\8a¢ T1 â\9e¡[h,n] T2 →
+ â\9dªG,Lâ\9d« â\8a¢ â\93\9dU1.T1 â\9e¡*[h,n] ⓝU2.T2.
+#h #n #G #L #U1 #U2 #H @(cpms_ind_sn … H) -U1 -n