X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_bind.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_bind.ma;h=71e795d2f0bb46d6dfb8be8b116a068dc2393c11;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=3b45f26c32acb1e8dca3fb3913427dc61e8463f8;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma index 3b45f26c3..71e795d2f 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma @@ -52,7 +52,7 @@ lemma liftsb_eq_repl_back: ∀I1,I2. pr_eq_repl_back … (λf. ⇧*[f] I1 ≘ I2 #I1 #I2 #f1 * -I1 -I2 /3 width=3 by lifts_eq_repl_back, ext2_pair/ qed-. -lemma liftsb_refl (f): 𝐈❪f❫ → reflexive … (liftsb f). +lemma liftsb_refl (f): 𝐈❨f❩ → reflexive … (liftsb f). /3 width=1 by lifts_refl, ext2_refl/ qed. lemma liftsb_total: ∀I1,f. ∃I2. ⇧*[f] I1 ≘ I2. @@ -71,6 +71,6 @@ qed-. (* Basic forward lemmas *****************************************************) lemma liftsb_fwd_isid (f): - ∀I1,I2. ⇧*[f] I1 ≘ I2 → 𝐈❪f❫ → I1 = I2. + ∀I1,I2. ⇧*[f] I1 ≘ I2 → 𝐈❨f❩ → I1 = I2. #f #I1 #I2 * -I1 -I2 /3 width=3 by lifts_fwd_isid, eq_f2/ qed-.