X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbs_cpxs.ma;h=f9d110dd114aca54e9d5d8456e94480abf596319;hp=ec9cf1bb57e49d51f0dea0fa36f7945adf5cd64b;hb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;hpb=613d8642b1154dde0c026cbdcd96568910198251

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_cpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_cpxs.ma
index ec9cf1bb5..f9d110dd1 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_cpxs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_cpxs.ma
@@ -40,14 +40,14 @@ lemma cpxs_fpbs_trans:
 qed-.
 
 lemma cpxs_teqx_fpbs_trans:
-      ∀G1,L1,T1,T. ❪G1,L1❫ ⊢ T1 ⬈* T → ∀T0. T ≛ T0 →
+      ∀G1,L1,T1,T. ❪G1,L1❫ ⊢ T1 ⬈* T → ∀T0. T ≅ T0 →
       ∀G2,L2,T2. ❪G1,L1,T0❫ ≥ ❪G2,L2,T2❫ → ❪G1,L1,T1❫ ≥ ❪G2,L2,T2❫.
 /3 width=3 by cpxs_fpbs_trans, teqx_fpbs_trans/ qed-.
 
 lemma cpxs_teqx_fpbs:
       ∀G,L,T1,T. ❪G,L❫ ⊢ T1 ⬈* T →
-      ∀T2. T ≛ T2 → ❪G,L,T1❫ ≥ ❪G,L,T2❫.
-/4 width=3 by cpxs_fpbs_trans, feqx_fpbs, teqx_feqx/ qed.
+      ∀T2. T ≅ T2 → ❪G,L,T1❫ ≥ ❪G,L,T2❫.
+/4 width=3 by cpxs_fpbs_trans, feqx_fpbs, teqg_feqg/ qed.
 
 (* Properties with star-iterated structural successor for closures **********)