- probe: critical bug fixed (all objects were deleted due to wrong test)

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / computation / cpds_cpds.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/cpds_cpds.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/cpds_cpds.ma
index 847b8f62a768e135de3b331d584a6172d63116b1..ec3d035f077c2418453c295373e8ad9133661aa7 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/computation/cpds_cpds.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/computation/cpds_cpds.ma
@@ -14,6 +14,7 @@
 
 include "basic_2/unfold/sstas_sstas.ma".
 include "basic_2/computation/lprs_cprs.ma".
+include "basic_2/computation/cpxs_cpxs.ma".
 include "basic_2/computation/cpds.ma".
 
 (* DECOMPOSED EXTENDED PARALLEL COMPUTATION ON TERMS ************************)
@@ -51,3 +52,9 @@ elim (cprs_inv_abbr1 … H2) -H2 *
 | /3 width=3/
 ]
 qed-.
+
+(* Advanced forward lemmas **************************************************)
+
+lemma cpds_fwd_cpxs: ∀h,g,L,T1,T2. ⦃h, L⦄ ⊢ T1 •*➡*[g] T2 → ⦃h, L⦄ ⊢ T1 ➡*[g] T2.
+#h #g #L #T1 #T2 * /3 width=3 by cpxs_trans, sstas_cpxs, cprs_cpxs/
+qed-.