]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_lsubr.ma
update in ground static_2 basic_2 apps_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_transition / cpm_lsubr.ma
index e754ff7a709458dfbdcae8d2dc337476014d2819..4949d55b35bb43f8236a0261b788f841271eaa7b 100644 (file)
@@ -24,7 +24,7 @@ lemma lsubr_cpm_trans (h) (n) (G): lsub_trans … (λL. cpm h G L n) lsubr.
 #h #n #G #L1 #T1 #T2 * /3 width=5 by lsubr_cpg_trans, ex2_intro/
 qed-.
 
-lemma cpm_bind_unit (h) (n) (G): â\88\80L,V1,V2. â\9dªG,Lâ\9d« ⊢ V1 ➡[h,0] V2 →
-                                 â\88\80J,T1,T2. â\9dªG,L.â\93¤[J]â\9d« ⊢ T1 ➡[h,n] T2 →
-                                 â\88\80p,I. â\9dªG,Lâ\9d« ⊢ ⓑ[p,I]V1.T1 ➡[h,n] ⓑ[p,I]V2.T2.
+lemma cpm_bind_unit (h) (n) (G): â\88\80L,V1,V2. â\9d¨G,Lâ\9d© ⊢ V1 ➡[h,0] V2 →
+                                 â\88\80J,T1,T2. â\9d¨G,L.â\93¤[J]â\9d© ⊢ T1 ➡[h,n] T2 →
+                                 â\88\80p,I. â\9d¨G,Lâ\9d© ⊢ ⓑ[p,I]V1.T1 ➡[h,n] ⓑ[p,I]V2.T2.
 /4 width=4 by lsubr_cpm_trans, cpm_bind, lsubr_unit/ qed.