]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx.ma
update in ground static_2 basic_2 apps_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / rsx.ma
index e7f603209cabb44a99d009e650f4c71876ae60ea..10ba979732d85ec46571f5c06971fc68716e41a5 100644 (file)
@@ -30,7 +30,7 @@ interpretation
 (* Basic_2A1: uses: lsx_ind *)
 lemma rsx_ind (G) (T) (Q:predicate …):
       (∀L1. G ⊢ ⬈*𝐒[T] L1 →
-        (â\88\80L2. â\9dªG,L1â\9d« ⊢ ⬈ L2 → (L1 ≅[T] L2 → ⊥) → Q L2) →
+        (â\88\80L2. â\9d¨G,L1â\9d© ⊢ ⬈ L2 → (L1 ≅[T] L2 → ⊥) → Q L2) →
         Q L1
       ) →
       ∀L. G ⊢ ⬈*𝐒[T] L →  Q L.
@@ -43,7 +43,7 @@ qed-.
 (* Basic_2A1: uses: lsx_intro *)
 lemma rsx_intro (G) (T):
       ∀L1.
-      (â\88\80L2. â\9dªG,L1â\9d« ⊢ ⬈ L2 → (L1 ≅[T] L2 → ⊥) → G ⊢ ⬈*𝐒[T] L2) →
+      (â\88\80L2. â\9d¨G,L1â\9d© ⊢ ⬈ L2 → (L1 ≅[T] L2 → ⊥) → G ⊢ ⬈*𝐒[T] L2) →
       G ⊢ ⬈*𝐒[T] L1.
 /5 width=1 by SN_intro/ qed.