X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_isi_eq.ma;h=1895672907d0871337eb5d1d9b25b98eb4767ce8;hb=873fb39bdd21aa14877bf5d50db26e3a050c6d43;hp=58317065d96bf49ebd8332de8148ff4e1a7658ea;hpb=503500ff9a6d9cca363a42b5fe7f3f5de69239f9;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_eq.ma index 58317065d..189567290 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_eq.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_eq.ma @@ -36,7 +36,7 @@ lemma pr_isi_eq_repl_fwd: (* Main inversions with pr_eq ***********************************************) (*** isid_inv_eq_repl *) -corec theorem pr_isi_inv_eq_repl (g1) (g2): 𝐈❨g1❩ → 𝐈❨g2❩ → g1 ≡ g2. +corec theorem pr_isi_inv_eq_repl (g1) (g2): 𝐈❨g1❩ → 𝐈❨g2❩ → g1 ≐ g2. #H1 #H2 cases (pr_isi_inv_gen … H1) -H1 cases (pr_isi_inv_gen … H2) -H2 @@ -46,13 +46,13 @@ qed-. (* Alternative definition with pr_eq ****************************************) (*** eq_push_isid *) -corec lemma pr_eq_push_isi (f): ⫯f ≡ f → 𝐈❨f❩. +corec lemma pr_eq_push_isi (f): ⫯f ≐ f → 𝐈❨f❩. #H cases (pr_eq_inv_push_sn … H) -H /4 width=3 by pr_isi_push, pr_eq_trans/ qed. (*** eq_push_inv_isid *) -corec lemma pr_isi_inv_eq_push (g): 𝐈❨g❩ → ⫯g ≡ g. +corec lemma pr_isi_inv_eq_push (g): 𝐈❨g❩ → ⫯g ≐ g. * -g #f #g #Hf * /3 width=5 by pr_eq_push/ qed-.