X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flreq_lreq.ma;h=d0c06d0c7dc0ac9cbbc41774895e4d9964330782;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=70abd6f5bcd45fcd72b1a04ceb9407726991e801;hpb=629687db8a55432e95c82f0c79e3f51c023e65a6;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 70abd6f5b..d0c06d0c7 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
@@ -12,15 +12,15 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "basic_2/syntax/ceq_ext_ceq_ext.ma".
 include "basic_2/relocation/lexs_lexs.ma".
-include "basic_2/relocation/lreq.ma".
 
 (* RANGED EQUIVALENCE FOR LOCAL ENVIRONMENTS ********************************)
 
 (* 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-.
@@ -28,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: ∀L1,L2,f1. 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: ∀L1,L2,f1. 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-.