X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Freducibility%2Ffpr_cpr.ma;h=0de0b98f58d8c9b622b6286e6596718fe10a886a;hb=5613a25cee29ef32a597cb4b44e8f2f4d71c4df0;hp=7abd3f22fa73b5e4c9c1f206cdc0bc13a2a64a9c;hpb=85a42e4a2a4c62818b6a98eff545e58ceb8770a4;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/basic_2/reducibility/fpr_cpr.ma b/matita/matita/contribs/lambda_delta/basic_2/reducibility/fpr_cpr.ma
index 7abd3f22f..0de0b98f5 100644
--- a/matita/matita/contribs/lambda_delta/basic_2/reducibility/fpr_cpr.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/reducibility/fpr_cpr.ma
@@ -16,6 +16,11 @@ include "basic_2/reducibility/cfpr_cpr.ma".
 
 (* CONTEXT-FREE PARALLEL REDUCTION ON CLOSURES ******************************)
 
+(* Properties on context-sensitive parallel reduction for terms *************)
+
+lemma cpr_fpr: ∀L,T1,T2. L ⊢ T1 ➡ T2 → ⦃L, T1⦄ ➡ ⦃L, T2⦄.
+/2 width=4/ qed.
+
 (* Advanced propertis *******************************************************)
 
 lemma fpr_bind_sn: ∀L1,L2,V1,V2. ⦃L1, V1⦄ ➡ ⦃L2, V2⦄ → ∀T1,T2. T1 ➡ T2 →