]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/pr_isd_eq.ma
update in ground, static_2 and apps_2
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / pr_isd_eq.ma
index a6000c8105e35462bd5931f9d747d28ec7eada3c..9b00fda4ded39da03d74d21798d7a94deb2e7239 100644 (file)
@@ -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): ð\9d\9b\80â\9d¨g1â\9d© â\86\92 ð\9d\9b\80â\9d¨g2â\9d© â\86\92 g1 â\89¡ g2.
+corec theorem pr_isd_inv_eq_repl (g1) (g2): ð\9d\9b\80â\9d¨g1â\9d© â\86\92 ð\9d\9b\80â\9d¨g2â\9d© â\86\92 g1 â\89\90 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): â\86\91f â\89¡ f → 𝛀❨f❩.
+corec lemma pr_eq_next_isd (f): â\86\91f â\89\90 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): ð\9d\9b\80â\9d¨gâ\9d© â\86\92 â\86\91g â\89¡ g.
+corec lemma pr_eq_next_inv_isd (g): ð\9d\9b\80â\9d¨gâ\9d© â\86\92 â\86\91g â\89\90 g.
 * -g #f #g #Hf *
 /3 width=5 by pr_eq_next/
 qed-.