partial commit in basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / lprs_lpxs.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_lpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_lpxs.ma
new file mode 100644 (file)
index 0000000..3844f86
--- /dev/null
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_lpxs.ma
@@ -0,0 +1,4 @@
+include "basic_2/rt_computation/lprs.ma".
+
+lemma lprs_lpxs: ∀h,g,G,L1,L2. ⦃G, L1⦄ ⊢ ➡* L2 → ⦃G, L1⦄ ⊢ ➡*[h, g] L2.
+/3 width=3 by lpr_lpx, monotonic_TC/ qed.