X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flifts_lifts.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Flifts_lifts.ma;h=d3fa65354e7506350da0d815f58c1b04c479a314;hb=6555775aa5268dec0d9ae4579412b659cacdc964;hp=381c1c96c95920007535872e1763aa607820d80b;hpb=69592aa1d0c0d122fb09f11cc53bf4c5a1532fdd;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma index 381c1c96c..d3fa65354 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma @@ -117,7 +117,7 @@ lemma lifts_mono: ∀f,T,U1. ⬆*[f] T ≡ U1 → ∀U2. ⬆*[f] T ≡ U2 → U1 /3 width=6 by lifts_conf, lifts_fwd_isid/ qed-. -lemma liftable2_sn_bi: ∀R. liftable2 R → liftable2_bi R. +lemma liftable2_sn_bi: ∀R. liftable2_sn R → liftable2_bi R. #R #HR #T1 #T2 #HT12 #f #U1 #HTU1 #U2 #HTU2 elim (HR … HT12 … HTU1) -HR -T1 #X #HTX #HUX <(lifts_mono … HTX … HTU2) -T2 -U2 -f //