X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fi_static%2Frexs_lex.ma;h=39059adfcf3acb5d75d060c36f6dea0d8abb05ae;hb=98e786e1a6bd7b621e37ba7cd4098d4a0a6f8278;hp=9d582d83b4dc81b1af65bd643832e438c7b63146;hpb=647504aa72b84eb49be8177b88a9254174e84d4b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma index 9d582d83b..39059adfc 100644 --- a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma @@ -13,8 +13,8 @@ (**************************************************************************) include "static_2/relocation/lex_tc.ma". -include "static_2/static/req_fqup.ma". -include "static_2/static/req_fsle.ma". +include "static_2/static/reqg_fqup.ma". +include "static_2/static/req_req.ma". include "static_2/i_static/rexs_fqup.ma". (* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) @@ -44,12 +44,12 @@ lemma rexs_inv_lex_req (R): #R #H1R #H2R #H3R #H4R #L1 #L2 #T #H lapply (s_rs_transitive_lex_inv_isid … H3R) -H3R #H3R @(rexs_ind_sn … H1R … H) -H -L2 -[ /4 width=3 by req_refl, lex_refl, inj, ex2_intro/ +[ /4 width=3 by reqg_refl, lex_refl, inj, ex2_intro/ | #L0 #L2 #_ #HL02 * #L * #f0 #Hf0 #HL1 #HL0 lapply (req_rex_trans … HL0 … HL02) -L0 // * #f1 #Hf1 #HL2 elim (sex_sdj_split_sn … ceq_ext … HL2 f0 ?) -HL2 - [ #L0 #HL0 #HL02 |*: /2 width=1 by ext2_refl, sdj_isid_dx/ ] - lapply (sex_sdj … HL0 f1 ?) /2 width=1 by sdj_isid_sn/ #H + [ #L0 #HL0 #HL02 |*: /2 width=1 by ext2_refl, pr_sdj_isi_dx/ ] + lapply (sex_sdj … HL0 f1 ?) /2 width=1 by pr_sdj_isi_sn/ #H elim (frees_sex_conf_fsge … Hf1 … H) // -H2R -H #f2 #Hf2 #Hf21 lapply (sle_sex_trans … HL02 … Hf21) -f1 // #HL02 lapply (sex_co ?? cfull (CTC … (cext2 R)) … HL1) -HL1 /2 width=1 by ext2_inv_tc/ #HL1