]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/substitution/fqu.ma
notational change of lift, drop, and gget
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / substitution / fqu.ma
index 48e230f00845a38d9fbaa9976b256da7be2a6f99..21697819cc68237a5f7ec6ae05c85f8d7f607cd0 100644 (file)
@@ -25,7 +25,7 @@ inductive fqu: tri_relation genv lenv term ≝
 | fqu_bind_dx: ∀a,I,G,L,V,T. fqu G L (ⓑ{a,I}V.T) G (L.ⓑ{I}V) T
 | fqu_flat_dx: ∀I,G,L,V,T. fqu G L (ⓕ{I}V.T) G L T
 | fqu_drop   : ∀G,L,K,T,U,e.
-               â\87©[e+1] L â\89¡ K â\86\92 â\87§[0, e+1] T ≡ U → fqu G L U G K T
+               â¬\87[e+1] L â\89¡ K â\86\92 â¬\86[0, e+1] T ≡ U → fqu G L U G K T
 .
 
 interpretation
@@ -35,7 +35,7 @@ interpretation
 (* Basic properties *********************************************************)
 
 lemma fqu_drop_lt: ∀G,L,K,T,U,e. 0 < e →
-                   â\87©[e] L â\89¡ K â\86\92 â\87§[0, e] T ≡ U → ⦃G, L, U⦄ ⊐ ⦃G, K, T⦄.
+                   â¬\87[e] L â\89¡ K â\86\92 â¬\86[0, e] T ≡ U → ⦃G, L, U⦄ ⊐ ⦃G, K, T⦄.
 #G #L #K #T #U #e #He >(plus_minus_m_m e 1) /2 width=3 by fqu_drop/
 qed.