X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fi_static%2Ftc_lfxs_tc_lfxs.ma;h=dbcc54a3a8fe33aee2e90b93b734881dfedcb20c;hp=5e4a9393378a9f694b35dc0fab143259ffaa78bd;hb=f7296f9cf2ee73465a374942c46b138f35c42ccb;hpb=e8971d3db8935436e6dddc27fe1ae168c7f3b315 diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_tc_lfxs.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_tc_lfxs.ma index 5e4a93933..dbcc54a3a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_tc_lfxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_tc_lfxs.ma @@ -19,7 +19,7 @@ include "basic_2/i_static/tc_lfxs.ma". (* Advanced properties ******************************************************) -lemma tc_lfxs_sym: ∀R. lfxs_fsle_compatible R → +lemma tc_lfxs_sym: ∀R. lfxs_fsge_compatible R → (∀L1,L2,T1,T2. R L1 T1 T2 → R L2 T2 T1) → ∀T. symmetric … (tc_lfxs R T). #R #H1R #H2R #T #L1 #L2 #H elim H -L2