X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fi_static%2Frexs_fqup.ma;h=738035c2244d981517b6147a464696e9691b4e16;hb=ad6182251b8192ee7d25c53156afbce35e3715b6;hp=705338db358cfcb9294afdf7a18dd64e2b45060c;hpb=bd53c4e895203eb049e75434f638f26b5a161a2b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma index 705338db3..738035c22 100644 --- a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma @@ -30,11 +30,11 @@ lemma rexs_pair_refl: ∀R. c_reflexive … R → /3 width=3 by rexs_step_dx, rex_pair_refl, inj/ qed. -lemma rexs_tc: ∀R,L1,L2,T,f. 𝐈❪f❫ → TC … (sex cfull (cext2 R) f) L1 L2 → +lemma rexs_tc: ∀R,L1,L2,T,f. 𝐈❨f❩ → TC … (sex cfull (cext2 R) f) L1 L2 → L1 ⪤*[R,T] L2. #R #L1 #L2 #T #f #Hf #H elim H -L2 [ elim (frees_total L1 T) | #L elim (frees_total L T) ] -/5 width=7 by sex_sdj, rexs_step_dx, sdj_isid_sn, inj, ex2_intro/ +/5 width=7 by sex_sdj, rexs_step_dx, pr_sdj_isi_sn, inj, ex2_intro/ qed. (* Advanced eliminators *****************************************************)