]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/reduction/cix_lift.ma
notational change of lift, drop, and gget
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / reduction / cix_lift.ma
index 72d5dbaac53a1a738ec73f6e513d905731eadab5..37835b0f1c4ef26fc152d7798aa8fd415447ef5b 100644 (file)
 include "basic_2/reduction/crx_lift.ma".
 include "basic_2/reduction/cix.ma".
 
-(* CONTEXT-SENSITIVE EXTENDED IRREDUCIBLE TERMS *****************************)
+(* IRREDUCIBLE TERMS FOR CONTEXT-SENSITIVE EXTENDED REDUCTION ***************)
 
 (* Advanced properties ******************************************************)
 
-lemma cix_lref: â\88\80h,g,G,L,i. â\87©[i] L â\89¡ â\8b\86 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ ð\9d\90\88[h, g]⦃#i⦄.
+lemma cix_lref: â\88\80h,g,G,L,i. â¬\87[i] L â\89¡ â\8b\86 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ â\9e¡[h, g] ð\9d\90\88⦃#i⦄.
 #h #g #G #L #i #HL #H elim (crx_inv_lref … H) -h #I #K #V #HLK
-lapply (ldrop_mono … HLK … HL) -L -i #H destruct
+lapply (drop_mono … HLK … HL) -L -i #H destruct
 qed.
 
 (* Properties on relocation *************************************************)
 
-lemma cix_lift: ∀h,g,G,K,T. ⦃G, K⦄ ⊢ 𝐈[h, g]⦃T⦄ → ∀L,s,d,e. ⇩[s, d, e] L ≡ K →
-                â\88\80U. â\87§[d, e] T â\89¡ U â\86\92 â¦\83G, Lâ¦\84 â\8a¢ ð\9d\90\88[h, g]⦃U⦄.
+lemma cix_lift: ∀h,g,G,K,T. ⦃G, K⦄ ⊢ ➡[h, g] 𝐈⦃T⦄ → ∀L,s,d,e. ⬇[s, d, e] L ≡ K →
+                â\88\80U. â¬\86[d, e] T â\89¡ U â\86\92 â¦\83G, Lâ¦\84 â\8a¢ â\9e¡[h, g] ð\9d\90\88⦃U⦄.
 /3 width=8 by crx_inv_lift/ qed.
 
-lemma cix_inv_lift: ∀h,g,G,L,U. ⦃G, L⦄ ⊢ 𝐈[h, g]⦃U⦄ → ∀K,s,d,e. ⇩[s, d, e] L ≡ K →
-                    â\88\80T. â\87§[d, e] T â\89¡ U â\86\92 â¦\83G, Kâ¦\84 â\8a¢ ð\9d\90\88[h, g]⦃T⦄.
+lemma cix_inv_lift: ∀h,g,G,L,U. ⦃G, L⦄ ⊢ ➡[h, g] 𝐈⦃U⦄ → ∀K,s,d,e. ⬇[s, d, e] L ≡ K →
+                    â\88\80T. â¬\86[d, e] T â\89¡ U â\86\92 â¦\83G, Kâ¦\84 â\8a¢ â\9e¡[h, g] ð\9d\90\88⦃T⦄.
 /3 width=8 by crx_lift/ qed-.