X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_conversion%2Fcpc_cpc.ma;h=49528eac8856d442894649f8a0a37ad79e81368c;hp=d3151122a0bf9560eece7f5c586535f4488fc208;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_conversion/cpc_cpc.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_conversion/cpc_cpc.ma index d3151122a..49528eac8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_conversion/cpc_cpc.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_conversion/cpc_cpc.ma @@ -18,6 +18,6 @@ include "basic_2/rt_conversion/cpc.ma". (* Main properties **********************************************************) -theorem cpc_conf: ∀h,G,L,T0,T1,T2. ⦃G,L⦄ ⊢ T0 ⬌[h] T1 → ⦃G,L⦄ ⊢ T0 ⬌[h] T2 → - ∃∃T. ⦃G,L⦄ ⊢ T1 ⬌[h] T & ⦃G,L⦄ ⊢ T2 ⬌[h] T. +theorem cpc_conf: ∀h,G,L,T0,T1,T2. ❪G,L❫ ⊢ T0 ⬌[h] T1 → ❪G,L❫ ⊢ T0 ⬌[h] T2 → + ∃∃T. ❪G,L❫ ⊢ T1 ⬌[h] T & ❪G,L❫ ⊢ T2 ⬌[h] T. /3 width=3 by cpc_sym, ex2_intro/ qed-.