some corrections ...

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / reduction / cpx_lleq.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx_lleq.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx_lleq.ma
index d810ae1759c9ccf2e184b8ccb27f9d02fd4b331b..6ff6c39d07f1f0e965b85bdffe58784abf35c285 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx_lleq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx_lleq.ma
@@ -72,3 +72,7 @@ lemma lleq_cpx_conf_dx: ∀h,g,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ➡[h, g] T2 →
   | /3 width=3 by lleq_bind_repl_O/
 ]
 qed-.
+
+lemma lleq_cpx_conf_sn: ∀h,g,G,L1,T1,T2. ⦃G, L1⦄ ⊢ T1 ➡[h, g] T2 →
+                        ∀L2. L1 ⋕[T1, 0] L2 → L1 ⋕[T2, 0] L2.
+/4 width=6 by lleq_cpx_conf_dx, lleq_sym/ qed-.