X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Freqg_reqg.ma;h=63bdf8a99e14d05531045ce3c844ff909806f061;hb=11093619476326238c2ef9d2dfe9150b8c9bc920;hp=41f0fee267d0bb6c33583f74b7e31ac874fb1694;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/static_2/static/reqg_reqg.ma b/matita/matita/contribs/lambdadelta/static_2/static/reqg_reqg.ma
index 41f0fee26..63bdf8a99 100644
--- a/matita/matita/contribs/lambdadelta/static_2/static/reqg_reqg.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/static/reqg_reqg.ma
@@ -14,7 +14,6 @@
 
 include "static_2/syntax/ext2_ext2.ma".
 include "static_2/syntax/teqg_teqg.ma".
-include "static_2/static/rex_rex.ma".
 include "static_2/static/reqg_length.ma".
 
 (* GENERIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ***********)
@@ -23,8 +22,8 @@ include "static_2/static/reqg_length.ma".
 
 lemma frees_reqg_conf (S):
       reflexive … S →
-      ∀f,L1,T. L1 ⊢ 𝐅+❪T❫ ≘ f →
-      ∀L2. L1 ≛[S,T] L2 → L2 ⊢ 𝐅+❪T❫ ≘ f.
+      ∀f,L1,T. L1 ⊢ 𝐅+❨T❩ ≘ f →
+      ∀L2. L1 ≛[S,T] L2 → L2 ⊢ 𝐅+❨T❩ ≘ f.
 /3 width=7 by frees_seqg_conf, rex_inv_frees/ qed-.
 
 (* Properties with free variables inclusion for restricted closures *******)
@@ -34,7 +33,7 @@ lemma reqg_fsle_comp (S):
       rex_fsle_compatible (ceqg S).
 #S #HS #L1 #L2 #T #HL12
 elim (frees_total L1 T) #f #Hf
-/4 width=8 by frees_reqg_conf, rex_fwd_length, lveq_length_eq, sle_refl, ex4_4_intro/
+/4 width=8 by frees_reqg_conf, rex_fwd_length, lveq_length_eq, pr_sle_refl, ex4_4_intro/
 qed.
 
 (* Advanced properties ******************************************************)