X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_isd_eq.ma;h=a6000c8105e35462bd5931f9d747d28ec7eada3c;hb=742e21da086654af82f308027250d00b50d67f52;hp=49a304e1c4cd980900b6e6fa89868c75b9f410e3;hpb=f8b4eb67c2437f7b5174d7dca46e102e0ac0d19d;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isd_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isd_eq.ma index 49a304e1c..a6000c810 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isd_eq.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isd_eq.ma @@ -35,7 +35,7 @@ lemma pr_isd_eq_repl_fwd: (* Main inversions with pr_eq ***********************************************) (*** isdiv_inv_eq_repl *) -corec theorem pr_isd_inv_eq_repl (g1) (g2): 𝛀❪g1❫ → 𝛀❪g2❫ → g1 ≡ g2. +corec theorem pr_isd_inv_eq_repl (g1) (g2): 𝛀❨g1❩ → 𝛀❨g2❩ → g1 ≡ g2. #H1 #H2 cases (pr_isd_inv_gen … H1) -H1 cases (pr_isd_inv_gen … H2) -H2 @@ -45,13 +45,13 @@ qed-. (* Alternative definition with pr_eq ****************************************) (*** eq_next_isdiv *) -corec lemma pr_eq_next_isd (f): ↑f ≡ f → 𝛀❪f❫. +corec lemma pr_eq_next_isd (f): ↑f ≡ f → 𝛀❨f❩. #H cases (pr_eq_inv_next_sn … H) -H /4 width=3 by pr_isd_next, pr_eq_trans/ qed. (*** eq_next_inv_isdiv *) -corec lemma pr_eq_next_inv_isd (g): 𝛀❪g❫ → ↑g ≡ g. +corec lemma pr_eq_next_inv_isd (g): 𝛀❨g❩ → ↑g ≡ g. * -g #f #g #Hf * /3 width=5 by pr_eq_next/ qed-.