X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flreq_lreq.ma;h=ec166cb7d772edf5c4d93d4e33ea9b629b4ba362;hb=42705ef31dd3513a998533e02b5f20fb38dd4fb2;hp=c823270ec8e98fc7d3d782ad661e808c771213b7;hpb=e9da8e091898b6e67a2f270581bdc5cdbe80e9b0;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 c823270ec..ec166cb7d 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-.