]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_cpxs.ma
more additions and corrections for the article
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / fpbs_cpxs.ma
index f995181c32a98664b5acbd344f3a6999dd0f4b53..ec1d680a817ab4e0885d70996a825db685531cce 100644 (file)
@@ -48,11 +48,11 @@ lemma cpxs_tdeq_fpbs: ∀h,G,L,T1,T. ⦃G,L⦄ ⊢ T1 ⬈*[h] T →
 (* Properties with star-iterated structural successor for closures **********)
 
 lemma cpxs_fqus_fpbs: ∀h,G1,L1,T1,T. ⦃G1,L1⦄ ⊢ T1 ⬈*[h] T →
-                      â\88\80G2,L2,T2. â¦\83G1,L1,Tâ¦\84 â\8a\90* ⦃G2,L2,T2⦄ → ⦃G1,L1,T1⦄ ≥[h] ⦃G2,L2,T2⦄.
+                      â\88\80G2,L2,T2. â¦\83G1,L1,Tâ¦\84 â¬\82* ⦃G2,L2,T2⦄ → ⦃G1,L1,T1⦄ ≥[h] ⦃G2,L2,T2⦄.
 /3 width=5 by fpbs_fqus_trans, cpxs_fpbs/ qed.
 
 (* Properties with plus-iterated structural successor for closures **********)
 
 lemma cpxs_fqup_fpbs: ∀h,G1,L1,T1,T. ⦃G1,L1⦄ ⊢ T1 ⬈*[h] T →
-                      â\88\80G2,L2,T2. â¦\83G1,L1,Tâ¦\84 â\8a\90+ ⦃G2,L2,T2⦄ → ⦃G1,L1,T1⦄ ≥[h] ⦃G2,L2,T2⦄.
+                      â\88\80G2,L2,T2. â¦\83G1,L1,Tâ¦\84 â¬\82+ ⦃G2,L2,T2⦄ → ⦃G1,L1,T1⦄ ≥[h] ⦃G2,L2,T2⦄.
 /3 width=5 by fpbs_fqup_trans, cpxs_fpbs/ qed.