]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/relocation/lreq_lreq.ma
update in basic_2 + web page
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / relocation / lreq_lreq.ma
index c823270ec8e98fc7d3d782ad661e808c771213b7..b2bf0385a202cd8e6f21c299d29828848bd0c11e 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
+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: â\88\80f1,L1,L2. L1 â\89¡[f1] L2 â\86\92 â\88\80f2. L1 â\89¡[f2] L2 →
-                   â\88\80f. f1 â\8b\93 f2 â\89¡ f â\86\92 L1 â\89¡[f] L2.
+theorem lreq_join: â\88\80f1,L1,L2. L1 â\89\90[f1] L2 â\86\92 â\88\80f2. L1 â\89\90[f2] L2 →
+                   â\88\80f. f1 â\8b\93 f2 â\89¡ f â\86\92 L1 â\89\90[f] L2.
 /2 width=5 by lexs_join/ qed-.
 
-theorem lreq_meet: â\88\80f1,L1,L2. L1 â\89¡[f1] L2 â\86\92 â\88\80f2. L1 â\89¡[f2] L2 →
-                   â\88\80f. f1 â\8b\92 f2 â\89¡ f â\86\92 L1 â\89¡[f] L2.
+theorem lreq_meet: â\88\80f1,L1,L2. L1 â\89\90[f1] L2 â\86\92 â\88\80f2. L1 â\89\90[f2] L2 →
+                   â\88\80f. f1 â\8b\92 f2 â\89¡ f â\86\92 L1 â\89\90[f] L2.
 /2 width=5 by lexs_meet/ qed-.