]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fpbc.ma
update in ground static_2 basic_2 apps_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / fpbs_fpbc.ma
index e8bd0ebc4072114bcb2f5b29d939971767eb9945..cd61e983d0f82a1755bd2b5750f79ea560da1858 100644 (file)
@@ -21,16 +21,16 @@ include "basic_2/rt_computation/fpbs_feqg.ma".
 (* Properties with proper parallel rst-reduction on closures ****************)
 
 lemma fpbc_fpbs:
-      â\88\80G1,G2,L1,L2,T1,T2. â\9dªG1,L1,T1â\9d« â\89» â\9dªG2,L2,T2â\9d« →
-      â\9dªG1,L1,T1â\9d« â\89¥ â\9dªG2,L2,T2â\9d«.
+      â\88\80G1,G2,L1,L2,T1,T2. â\9d¨G1,L1,T1â\9d© â\89» â\9d¨G2,L2,T2â\9d© →
+      â\9d¨G1,L1,T1â\9d© â\89¥ â\9d¨G2,L2,T2â\9d©.
 /3 width=1 by fpb_fpbs, fpbc_fwd_fpb/ qed.
 
 (* Inversion lemmas with proper parallel rst-reduction on closures **********)
 
 lemma fpbs_inv_fpbc_sn:
-      â\88\80G1,G2,L1,L2,T1,T2. â\9dªG1,L1,T1â\9d« â\89¥ â\9dªG2,L2,T2â\9d« →
-      â\88¨â\88¨ â\9dªG1,L1,T1â\9d« â\89\85 â\9dªG2,L2,T2â\9d«
-       | â\88\83â\88\83G,L,T. â\9dªG1,L1,T1â\9d« â\89» â\9dªG,L,Tâ\9d« & â\9dªG,L,Tâ\9d« â\89¥ â\9dªG2,L2,T2â\9d«.
+      â\88\80G1,G2,L1,L2,T1,T2. â\9d¨G1,L1,T1â\9d© â\89¥ â\9d¨G2,L2,T2â\9d© →
+      â\88¨â\88¨ â\9d¨G1,L1,T1â\9d© â\89\85 â\9d¨G2,L2,T2â\9d©
+       | â\88\83â\88\83G,L,T. â\9d¨G1,L1,T1â\9d© â\89» â\9d¨G,L,Tâ\9d© & â\9d¨G,L,Tâ\9d© â\89¥ â\9d¨G2,L2,T2â\9d©.
 #G1 #G2 #L1 #L2 #T1 #T2 #H @(fpbs_ind … H) -G2 -L2 -T2
 [ /3 width=1 by feqg_refl, or_introl/
 | #G #G2 #L #L2 #T #T2 #_ #H2 * [ #H1 | * #G0 #L0 #T0 #H10 #H0 ]