X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_cpms_teqx.ma;h=dfd06ce5ab830a34635ced227e623d32410447b7;hb=cc178d85bc4fec05b6a9dd176f338b3275beb3d9;hp=bc9770b542db4795569eddb5bf2413888d01a4b3;hpb=e23331eef5817eaa6c5e1c442d1d6bbb18650573;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpms_teqx.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpms_teqx.ma
index bc9770b54..dfd06ce5a 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpms_teqx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpms_teqx.ma
@@ -19,10 +19,10 @@ include "basic_2/dynamic/cnv_cpm_teqx_trans.ma".
 (* Properties with restricted rt-computation for terms **********************)
 
 fact cpms_tneqx_fwd_step_sn_aux (h) (a) (n) (G) (L) (T1):
-     ∀T2. ❪G,L❫ ⊢ T1 ➡*[h,n] T2 → ❪G,L❫ ⊢ T1 ![h,a] → (T1 ≅ T2 → ⊥) →
-     (∀G0,L0,T0. ❪G,L,T1❫ > ❪G0,L0,T0❫ → IH_cnv_cpms_conf_lpr h a G0 L0 T0) →
-     (∀G0,L0,T0. ❪G,L,T1❫ > ❪G0,L0,T0❫ → IH_cnv_cpm_trans_lpr h a G0 L0 T0) →
-     ∃∃n1,n2,T0. ❪G,L❫ ⊢ T1 ➡[h,n1] T0 & T1 ≅ T0 → ⊥ & ❪G,L❫ ⊢ T0 ➡*[h,n2] T2 & n1+n2 = n.
+     ∀T2. ❨G,L❩ ⊢ T1 ➡*[h,n] T2 → ❨G,L❩ ⊢ T1 ![h,a] → (T1 ≅ T2 → ⊥) →
+     (∀G0,L0,T0. ❨G,L,T1❩ > ❨G0,L0,T0❩ → IH_cnv_cpms_conf_lpr h a G0 L0 T0) →
+     (∀G0,L0,T0. ❨G,L,T1❩ > ❨G0,L0,T0❩ → IH_cnv_cpm_trans_lpr h a G0 L0 T0) →
+     ∃∃n1,n2,T0. ❨G,L❩ ⊢ T1 ➡[h,n1] T0 & T1 ≅ T0 → ⊥ & ❨G,L❩ ⊢ T0 ➡*[h,n2] T2 & n1+n2 = n.
 #h #a #n #G #L #T1 #T2 #H
 @(cpms_ind_sn … H) -n -T1
 [ #_ #H2T2 elim H2T2 -H2T2 //
@@ -43,11 +43,11 @@ fact cpms_tneqx_fwd_step_sn_aux (h) (a) (n) (G) (L) (T1):
 qed-.
 
 fact cpms_teqx_ind_sn (h) (a) (G) (L) (T2) (Q:relation2 …):
-     (❪G,L❫ ⊢ T2 ![h,a] → Q 0 T2) →
-     (∀n1,n2,T1,T. ❪G,L❫ ⊢ T1 ➡[h,n1] T → ❪G,L❫ ⊢ T1 ![h,a] → T1 ≅ T → ❪G,L❫ ⊢ T ➡*[h,n2] T2 → ❪G,L❫ ⊢ T ![h,a] → T ≅ T2 → Q n2 T → Q (n1+n2) T1) →
-     ∀n,T1. ❪G,L❫ ⊢ T1 ➡*[h,n] T2 → ❪G,L❫ ⊢ T1 ![h,a] → T1 ≅ T2 →
-     (∀G0,L0,T0. ❪G,L,T1❫ > ❪G0,L0,T0❫ → IH_cnv_cpms_conf_lpr h a G0 L0 T0) →
-     (∀G0,L0,T0. ❪G,L,T1❫ > ❪G0,L0,T0❫ → IH_cnv_cpm_trans_lpr h a G0 L0 T0) →
+     (❨G,L❩ ⊢ T2 ![h,a] → Q 0 T2) →
+     (∀n1,n2,T1,T. ❨G,L❩ ⊢ T1 ➡[h,n1] T → ❨G,L❩ ⊢ T1 ![h,a] → T1 ≅ T → ❨G,L❩ ⊢ T ➡*[h,n2] T2 → ❨G,L❩ ⊢ T ![h,a] → T ≅ T2 → Q n2 T → Q (n1+n2) T1) →
+     ∀n,T1. ❨G,L❩ ⊢ T1 ➡*[h,n] T2 → ❨G,L❩ ⊢ T1 ![h,a] → T1 ≅ T2 →
+     (∀G0,L0,T0. ❨G,L,T1❩ > ❨G0,L0,T0❩ → IH_cnv_cpms_conf_lpr h a G0 L0 T0) →
+     (∀G0,L0,T0. ❨G,L,T1❩ > ❨G0,L0,T0❩ → IH_cnv_cpm_trans_lpr h a G0 L0 T0) →
      Q n T1.
 #h #a #G #L #T2 #Q #IB1 #IB2 #n #T1 #H
 @(cpms_ind_sn … H) -n -T1