]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/computation/fpbg_lift.ma
- advances in the theory of cofrees
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / computation / fpbg_lift.ma
index 4dd9afb7384ba582fb2736688991378c67dc4512..c67134ee39dc3b46c9d37e30f7112ca1b49434c3 100644 (file)
@@ -20,9 +20,9 @@ include "basic_2/computation/fpbg.ma".
 (* Advanced properties ******************************************************)
 
 lemma lsstas_fpbg: ∀h,g,G,L,T1,T2,l2. ⦃G, L⦄ ⊢ T1 •*[h, g, l2] T2 → (T1 = T2 → ⊥) →
-                   â\88\80l1. l2 â\89¤ l1 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ T1 â\96ª[h, g] l1 â\86\92 â¦\83G, L, T1â¦\84 >â\8b\95[h, g] ⦃G, L, T2⦄.
+                   â\88\80l1. l2 â\89¤ l1 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ T1 â\96ª[h, g] l1 â\86\92 â¦\83G, L, T1â¦\84 >â\89¡[h, g] ⦃G, L, T2⦄.
 /5 width=5 by fpbc_fpbg, fpbu_fpbc, lsstas_fpbu/ qed.
 
 lemma ssta_fpbg: ∀h,g,G,L,T1,T2,l. ⦃G, L⦄ ⊢ T1 ▪[h, g] l+1 →
-                 â¦\83G, Lâ¦\84 â\8a¢ T1 â\80¢[h, g] T2 â\86\92 â¦\83G, L, T1â¦\84 >â\8b\95[h, g] ⦃G, L, T2⦄.
+                 â¦\83G, Lâ¦\84 â\8a¢ T1 â\80¢[h, g] T2 â\86\92 â¦\83G, L, T1â¦\84 >â\89¡[h, g] ⦃G, L, T2⦄.
 /4 width=2 by fpbc_fpbg, fpbu_fpbc, ssta_fpbu/ qed.