X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fnta.ma;h=690e7d66800da402cc27e3d313ea790bd4ea2eae;hp=c2c9393884c2d618abd16aabd12b24c983a202af;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/nta.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/nta.ma
index c2c939388..690e7d668 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/nta.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/nta.ma
@@ -18,7 +18,7 @@ include "basic_2/dynamic/cnv.ma".
 (* NATIVE TYPE ASSIGNMENT FOR TERMS *****************************************)
 
 definition nta (h) (a): relation4 genv lenv term term ≝
-           λG,L,T,U. ⦃G,L⦄ ⊢ ⓝU.T ![h,a].
+           λG,L,T,U. ❪G,L❫ ⊢ ⓝU.T ![h,a].
 
 interpretation "native type assignment (term)"
   'Colon h a G L T U = (nta h a G L T U).
@@ -27,14 +27,14 @@ interpretation "native type assignment (term)"
 
 (* Basic_1: was by definition: ty3_sort *)
 (* Basic_2A1: was by definition: nta_sort ntaa_sort *)
-lemma nta_sort (h) (a) (G) (L): ∀s. ⦃G,L⦄ ⊢ ⋆s :[h,a] ⋆(⫯[h]s).
+lemma nta_sort (h) (a) (G) (L): ∀s. ❪G,L❫ ⊢ ⋆s :[h,a] ⋆(⫯[h]s).
 #h #a #G #L #s /2 width=3 by cnv_sort, cnv_cast, cpms_sort/
 qed.
 
 lemma nta_bind_cnv (h) (a) (G) (K):
-      ∀V. ⦃G,K⦄ ⊢ V ![h,a] →
-      ∀I,T,U. ⦃G,K.ⓑ{I}V⦄ ⊢ T :[h,a] U →
-      ∀p. ⦃G,K⦄ ⊢ ⓑ{p,I}V.T :[h,a] ⓑ{p,I}V.U.
+      ∀V. ❪G,K❫ ⊢ V ![h,a] →
+      ∀I,T,U. ❪G,K.ⓑ[I]V❫ ⊢ T :[h,a] U →
+      ∀p. ❪G,K❫ ⊢ ⓑ[p,I]V.T :[h,a] ⓑ[p,I]V.U.
 #h #a #G #K #V #HV #I #T #U #H #p
 elim (cnv_inv_cast … H) -H #X #HU #HT #HUX #HTX
 /3 width=5 by cnv_bind, cnv_cast, cpms_bind_dx/
@@ -42,7 +42,7 @@ qed.
 
 (* Basic_2A1: was by definition: nta_cast *)
 lemma nta_cast (h) (a) (G) (L):
-      ∀T,U. ⦃G,L⦄ ⊢ T :[h,a] U → ⦃G,L⦄ ⊢ ⓝU.T :[h,a] U.
+      ∀T,U. ❪G,L❫ ⊢ T :[h,a] U → ❪G,L❫ ⊢ ⓝU.T :[h,a] U.
 #h #a #G #L #T #U #H
 elim (cnv_inv_cast … H) #X #HU #HT #HUX #HTX
 /3 width=3 by cnv_cast, cpms_eps/
@@ -50,8 +50,8 @@ qed.
 
 (* Basic_1: was by definition: ty3_cast *)
 lemma nta_cast_old (h) (a) (G) (L):
-      ∀T0,T1. ⦃G,L⦄ ⊢ T0 :[h,a] T1 →
-      ∀T2. ⦃G,L⦄ ⊢ T1 :[h,a] T2 → ⦃G,L⦄ ⊢ ⓝT1.T0 :[h,a] ⓝT2.T1.
+      ∀T0,T1. ❪G,L❫ ⊢ T0 :[h,a] T1 →
+      ∀T2. ❪G,L❫ ⊢ T1 :[h,a] T2 → ❪G,L❫ ⊢ ⓝT1.T0 :[h,a] ⓝT2.T1.
 #h #a #G #L #T0 #T1 #H1 #T2 #H2
 elim (cnv_inv_cast … H1) #X1 #_ #_ #HTX1 #HTX01
 elim (cnv_inv_cast … H2) #X2 #_ #_ #HTX2 #HTX12
@@ -61,7 +61,7 @@ qed.
 (* Basic inversion lemmas ***************************************************)
 
 lemma nta_inv_gref_sn (h) (a) (G) (L):
-      ∀X2,l. ⦃G,L⦄ ⊢ §l :[h,a] X2 → ⊥.
+      ∀X2,l. ❪G,L❫ ⊢ §l :[h,a] X2 → ⊥.
 #h #a #G #L #X2 #l #H
 elim (cnv_inv_cast … H) -H #X #_ #H #_ #_
 elim (cnv_inv_gref … H)
@@ -70,14 +70,14 @@ qed-.
 (* Basic_forward lemmas *****************************************************)
 
 lemma nta_fwd_cnv_sn (h) (a) (G) (L):
-      ∀T,U. ⦃G,L⦄ ⊢ T :[h,a] U → ⦃G,L⦄ ⊢ T ![h,a].
+      ∀T,U. ❪G,L❫ ⊢ T :[h,a] U → ❪G,L❫ ⊢ T ![h,a].
 #h #a #G #L #T #U #H
 elim (cnv_inv_cast … H) -H #X #_ #HT #_ #_ //
 qed-.
 
 (* Note: this is nta_fwd_correct_cnv *)
 lemma nta_fwd_cnv_dx (h) (a) (G) (L):
-      ∀T,U. ⦃G,L⦄ ⊢ T :[h,a] U → ⦃G,L⦄ ⊢ U ![h,a].
+      ∀T,U. ❪G,L❫ ⊢ T :[h,a] U → ❪G,L❫ ⊢ U ![h,a].
 #h #a #G #L #T #U #H
 elim (cnv_inv_cast … H) -H #X #HU #_ #_ #_ //
 qed-.