X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Ftweq.ma;h=1b44f03dedb6fe340144339397b4e4c73b0b6e7a;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=fd31eb05e380088b9caa71efe8ca0692e7d04ad0;hpb=0fea4ed429678c3293027cfe76fdbe15cfa331cb;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/tweq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/tweq.ma
index fd31eb05e..1b44f03de 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/tweq.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/tweq.ma
@@ -12,21 +12,19 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground_2/xoa/ex_1_2.ma".
+include "ground_2/xoa/ex_3_2.ma".
 include "static_2/notation/relations/approxeq_2.ma".
 include "static_2/syntax/term_weight.ma".
 
-lemma tw_le_pair_dx (I): ∀V,T. ♯{T} < ♯{②{I}V.T}.
-#I #V #T /2 width=1 by le_S_S/
-qed.
-
 (* SORT-IRRELEVANT WHD EQUIVALENCE ON TERMS *********************************)
 
 inductive tweq: relation term ≝
 | tweq_sort: ∀s1,s2. tweq (⋆s1) (⋆s2)
 | tweq_lref: ∀i. tweq (#i) (#i)
 | tweq_gref: ∀l. tweq (§l) (§l)
-| tweq_abbr: ∀p,V1,V2,T1,T2. (p=Ⓣ→tweq T1 T2) → tweq (ⓓ{p}V1.T1) (ⓓ{p}V2.T2)
-| tweq_abst: ∀p,V1,V2,T1,T2. tweq (ⓛ{p}V1.T1) (ⓛ{p}V2.T2)
+| tweq_abbr: ∀p,V1,V2,T1,T2. (p=Ⓣ→tweq T1 T2) → tweq (ⓓ[p]V1.T1) (ⓓ[p]V2.T2)
+| tweq_abst: ∀p,V1,V2,T1,T2. tweq (ⓛ[p]V1.T1) (ⓛ[p]V2.T2)
 | tweq_appl: ∀V1,V2,T1,T2. tweq T1 T2 → tweq (ⓐV1.T1) (ⓐV2.T2)
 | tweq_cast: ∀V1,V2,T1,T2. tweq V1 V2 → tweq T1 T2 → tweq (ⓝV1.T1) (ⓝV2.T2)
 .
@@ -105,8 +103,8 @@ lemma tweq_inv_gref_sn:
 /2 width=5 by tweq_inv_gref_sn_aux/ qed-.
 
 fact tweq_inv_abbr_sn_aux:
-     ∀X,Y. X ≅ Y → ∀p,V1,T1. X = ⓓ{p}V1.T1 →
-     ∃∃V2,T2. p = Ⓣ → T1 ≅ T2 & Y = ⓓ{p}V2.T2.
+     ∀X,Y. X ≅ Y → ∀p,V1,T1. X = ⓓ[p]V1.T1 →
+     ∃∃V2,T2. p = Ⓣ → T1 ≅ T2 & Y = ⓓ[p]V2.T2.
 #X #Y * -X -Y
 [1  : #s1 #s2 #q #W1 #U1 #H destruct
 |2,3: #i #q #W1 #U1 #H destruct
@@ -118,13 +116,13 @@ fact tweq_inv_abbr_sn_aux:
 qed-.
 
 lemma tweq_inv_abbr_sn:
-      ∀p,V1,T1,Y. ⓓ{p}V1.T1 ≅ Y →
-      ∃∃V2,T2. p = Ⓣ → T1 ≅ T2 & Y = ⓓ{p}V2.T2.
+      ∀p,V1,T1,Y. ⓓ[p]V1.T1 ≅ Y →
+      ∃∃V2,T2. p = Ⓣ → T1 ≅ T2 & Y = ⓓ[p]V2.T2.
 /2 width=4 by tweq_inv_abbr_sn_aux/ qed-.
 
 fact tweq_inv_abst_sn_aux:
-     ∀X,Y. X ≅ Y → ∀p,V1,T1. X = ⓛ{p}V1.T1 →
-     ∃∃V2,T2. Y = ⓛ{p}V2.T2.
+     ∀X,Y. X ≅ Y → ∀p,V1,T1. X = ⓛ[p]V1.T1 →
+     ∃∃V2,T2. Y = ⓛ[p]V2.T2.
 #X #Y * -X -Y
 [1  : #s1 #s2 #q #W1 #U1 #H destruct
 |2,3: #i #q #W1 #U1 #H destruct
@@ -136,8 +134,8 @@ fact tweq_inv_abst_sn_aux:
 qed-.
 
 lemma tweq_inv_abst_sn:
-      ∀p,V1,T1,Y. ⓛ{p}V1.T1 ≅ Y →
-      ∃∃V2,T2. Y = ⓛ{p}V2.T2.
+      ∀p,V1,T1,Y. ⓛ[p]V1.T1 ≅ Y →
+      ∃∃V2,T2. Y = ⓛ[p]V2.T2.
 /2 width=5 by tweq_inv_abst_sn_aux/ qed-.
 
 fact tweq_inv_appl_sn_aux:
@@ -211,7 +209,7 @@ elim (tweq_inv_cast_sn … H) -H #W2 #U2 #HVW #HTU #H destruct
 /2 width=1 by conj/
 qed-.
 
-lemma tweq_inv_cast_sn_XY_Y: ∀T,V. ⓝV.T ≅ T → ⊥.
+lemma tweq_inv_cast_xy_y: ∀T,V. ⓝV.T ≅ T → ⊥.
 @(f_ind … tw) #n #IH #T #Hn #V #H destruct
 elim (tweq_inv_cast_sn … H) -H #X1 #X2 #_ #HX2 #H destruct -V
 /2 width=4 by/
@@ -220,7 +218,7 @@ qed-.
 (* Advanced forward lemmas **************************************************)
 
 lemma tweq_fwd_pair_sn (I):
-      ∀V1,T1,X2. ②{I}V1.T1 ≅ X2 → ∃∃V2,T2. X2 = ②{I}V2.T2.
+      ∀V1,T1,X2. ②[I]V1.T1 ≅ X2 → ∃∃V2,T2. X2 = ②[I]V2.T2.
 * [ #p ] * [ cases p -p ] #V1 #T1 #X2 #H
 [ elim (tweq_inv_abbr_pos_sn … H) -H #V2 #T2 #_ #H
 | elim (tweq_inv_abbr_neg_sn … H) -H #V2 #T2 #H
@@ -231,7 +229,7 @@ lemma tweq_fwd_pair_sn (I):
 qed-.
 
 lemma tweq_fwd_pair_bi (I1) (I2):
-      ∀V1,V2,T1,T2. ②{I1}V1.T1 ≅ ②{I2}V2.T2 → I1 = I2.
+      ∀V1,V2,T1,T2. ②[I1]V1.T1 ≅ ②[I2]V2.T2 → I1 = I2.
 #I1 #I2 #V1 #V2 #T1 #T2 #H
 elim (tweq_fwd_pair_sn … H) -H #W2 #U2 #H destruct //
 qed-.