update in ground_2, static_2, basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / dynamic / cnv_drops.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_drops.ma
index 1b8bf77143bc29c7877e0929f8272dd6d00a905d..654a694b2cbc9193fdc53d5533be25e32030f30b 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_drops.ma
@@ -22,7 +22,7 @@ include "basic_2/dynamic/cnv.ma".
 (* Basic_2A1: uses: snv_lref *)
 lemma cnv_lref_drops (h) (a) (G):
       ∀I,K,V,i,L. ❪G,K❫ ⊢ V ![h,a] →
-      ⇩*[i] L ≘ K.ⓑ[I]V → ❪G,L❫ ⊢ #i ![h,a].
+      ⇩[i] L ≘ K.ⓑ[I]V → ❪G,L❫ ⊢ #i ![h,a].
 #h #a #G #I #K #V #i elim i -i
 [ #L #HV #H
   lapply (drops_fwd_isid … H ?) -H // #H destruct
@@ -38,7 +38,7 @@ qed.
 (* Basic_2A1: uses: snv_inv_lref *)
 lemma cnv_inv_lref_drops (h) (a) (G):
       ∀i,L. ❪G,L❫ ⊢ #i ![h,a] →
-      ∃∃I,K,V. ⇩*[i] L ≘ K.ⓑ[I]V & ❪G,K❫ ⊢ V ![h,a].
+      ∃∃I,K,V. ⇩[i] L ≘ K.ⓑ[I]V & ❪G,K❫ ⊢ V ![h,a].
 #h #a #G #i elim i -i
 [ #L #H
   elim (cnv_inv_zero … H) -H #I #K #V #HV #H destruct
@@ -52,7 +52,7 @@ qed-.
 
 lemma cnv_inv_lref_pair (h) (a) (G):
       ∀i,L. ❪G,L❫ ⊢ #i ![h,a] →
-      ∀I,K,V. ⇩*[i] L ≘ K.ⓑ[I]V → ❪G,K❫ ⊢ V ![h,a].
+      ∀I,K,V. ⇩[i] L ≘ K.ⓑ[I]V → ❪G,K❫ ⊢ V ![h,a].
 #h #a #G #i #L #H #I #K #V #HLK
 elim (cnv_inv_lref_drops … H) -H #Z #Y #X #HLY #HX
 lapply (drops_mono … HLY … HLK) -L #H destruct //
@@ -68,7 +68,7 @@ qed-.
 
 lemma cnv_inv_lref_unit (h) (a) (G):
       ∀i,L. ❪G,L❫ ⊢ #i ![h,a] →
-      ∀I,K. ⇩*[i] L ≘ K.ⓤ[I] → ⊥.
+      ∀I,K. ⇩[i] L ≘ K.ⓤ[I] → ⊥.
 #h #a #G #i #L #H #I #K #HLK
 elim (cnv_inv_lref_drops … H) -H #Z #Y #X #HLY #_
 lapply (drops_mono … HLY … HLK) -L #H destruct