]> matita.cs.unibo.it Git - helm.git/blob - matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_lpxs.ma
partial commit in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / lprs_lpxs.ma
1 include "basic_2/rt_computation/lprs.ma".
2
3 lemma lprs_lpxs: ∀h,g,G,L1,L2. ⦃G, L1⦄ ⊢ ➡* L2 → ⦃G, L1⦄ ⊢ ➡*[h, g] L2.
4 /3 width=3 by lpr_lpx, monotonic_TC/ qed.