X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_isd_eq.ma;h=9b00fda4ded39da03d74d21798d7a94deb2e7239;hb=873fb39bdd21aa14877bf5d50db26e3a050c6d43;hp=a6000c8105e35462bd5931f9d747d28ec7eada3c;hpb=503500ff9a6d9cca363a42b5fe7f3f5de69239f9;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 a6000c810..9b00fda4d 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-.