X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flreq_lreq.ma;h=b2bf0385a202cd8e6f21c299d29828848bd0c11e;hb=268e7f336d036f77ffc9663358e9afda92b97730;hp=42aaf3eea96a40d58d772dae5619b9e24c12fd45;hpb=f82a900182012664dd58eb1d8ab012c2a6f541ab;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
index 42aaf3eea..b2bf0385a 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "basic_2/syntax/ceq_ext_ceq_ext.ma".
 include "basic_2/relocation/lexs_lexs.ma".
 
 (* RANGED EQUIVALENCE FOR LOCAL ENVIRONMENTS ********************************)
@@ -19,7 +20,7 @@ include "basic_2/relocation/lexs_lexs.ma".
 (* Main properties **********************************************************)
 
 theorem lreq_trans: ∀f. Transitive … (lreq f).
-/2 width=3 by lexs_trans/ qed-.
+/3 width=5 by lexs_trans, ceq_ext_trans/ qed-.
 
 theorem lreq_canc_sn: ∀f. left_cancellable … (lreq f).
 /3 width=3 by lexs_canc_sn, lreq_trans, lreq_sym/ qed-.
@@ -27,10 +28,10 @@ theorem lreq_canc_sn: ∀f. left_cancellable … (lreq f).
 theorem lreq_canc_dx: ∀f. right_cancellable … (lreq f).
 /3 width=3 by lexs_canc_dx, lreq_trans, lreq_sym/ qed-.
 
-theorem lreq_join: ∀f1,L1,L2. L1 ≡[f1] L2 → ∀f2. L1 ≡[f2] L2 →
-                   ∀f. f1 ⋓ f2 ≡ f → L1 ≡[f] L2.
+theorem lreq_join: ∀f1,L1,L2. L1 ≐[f1] L2 → ∀f2. L1 ≐[f2] L2 →
+                   ∀f. f1 ⋓ f2 ≡ f → L1 ≐[f] L2.
 /2 width=5 by lexs_join/ qed-.
 
-theorem lreq_meet: ∀f1,L1,L2. L1 ≡[f1] L2 → ∀f2. L1 ≡[f2] L2 →
-                   ∀f. f1 ⋒ f2 ≡ f → L1 ≡[f] L2.
+theorem lreq_meet: ∀f1,L1,L2. L1 ≐[f1] L2 → ∀f2. L1 ≐[f2] L2 →
+                   ∀f. f1 ⋒ f2 ≡ f → L1 ≐[f] L2.
 /2 width=5 by lexs_meet/ qed-.