X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_cpm_teqx.ma;h=23287638d8a15802812e79d3d9f92191303c5f19;hb=3c7b4071a9ac096b02334c1d47468776b948e2de;hp=a2987f8eb8d184dddc463a2683da75afc17fec60;hpb=ca7327c20c6031829fade8bb84a3a1bb66113f54;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpm_teqx.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpm_teqx.ma index a2987f8eb..23287638d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpm_teqx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpm_teqx.ma @@ -12,9 +12,9 @@ (* *) (**************************************************************************) -include "ground_2/xoa/ex_5_1.ma". -include "ground_2/xoa/ex_8_5.ma". -include "ground_2/xoa/ex_9_3.ma". +include "ground/xoa/ex_5_1.ma". +include "ground/xoa/ex_8_5.ma". +include "ground/xoa/ex_9_3.ma". include "basic_2/rt_transition/cpm_teqx.ma". include "basic_2/rt_computation/fpbg_fqup.ma". include "basic_2/dynamic/cnv_fsb.ma". @@ -46,7 +46,7 @@ lemma cnv_cpr_teqx_fwd_refl (h) (a) (G) (L): | #G #L #U #T1 #T2 #HT12 #_ #H1 #H2 elim (cnv_fpbg_refl_false … H2) -a @(fpbg_teqx_div … H1) -H1 - /3 width=6 by cpm_tneqx_cpm_fpbg, cpm_eps, teqx_inv_pair_xy_y/ + /3 width=7 by cpm_tneqx_cpm_fpbg, cpm_eps, teqx_inv_pair_xy_y/ | #p #G #L #V1 #V2 #W1 #W2 #T1 #T2 #_ #_ #_ #_ #_ #_ #H1 #_ elim (teqx_inv_pair … H1) -H1 #H #_ #_ destruct | #p #G #L #V1 #V2 #X2 #W1 #W2 #T1 #T2 #_ #_ #_ #_ #_ #_ #_ #H1 #_ @@ -106,11 +106,11 @@ elim (cpm_inv_cast1 … H1) -H1 [ * || * ] | #HT1X elim (cnv_fpbg_refl_false … H0) -a @(fpbg_teqx_div … H2) -H2 - /3 width=6 by cpm_tneqx_cpm_fpbg, cpm_eps, teqx_inv_pair_xy_y/ + /3 width=7 by cpm_tneqx_cpm_fpbg, cpm_eps, teqx_inv_pair_xy_y/ | #m #HU1X #H destruct elim (cnv_fpbg_refl_false … H0) -a @(fpbg_teqx_div … H2) -H2 - /3 width=6 by cpm_tneqx_cpm_fpbg, cpm_ee, teqx_inv_pair_xy_x/ + /3 width=7 by cpm_tneqx_cpm_fpbg, cpm_ee, teqx_inv_pair_xy_x/ ] qed-.