renaming

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / relocation / lreq_lreq.ma

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 c823270ec8e98fc7d3d782ad661e808c771213b7..d0c06d0c7dc0ac9cbbc41774895e4d9964330782 100644 (file)
--- 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-.
@@ -29,9 +29,9 @@ 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 →
-                   â\88\80f. f1 â\8b\93 f2 â\89¡ f → L1 ≡[f] L2.
+                   â\88\80f. f1 â\8b\93 f2 â\89\98 f → L1 ≡[f] L2.
 /2 width=5 by lexs_join/ qed-.
 
 theorem lreq_meet: ∀f1,L1,L2. L1 ≡[f1] L2 → ∀f2. L1 ≡[f2] L2 →
-                   â\88\80f. f1 â\8b\92 f2 â\89¡ f → L1 ≡[f] L2.
+                   â\88\80f. f1 â\8b\92 f2 â\89\98 f → L1 ≡[f] L2.
 /2 width=5 by lexs_meet/ qed-.