long awaited update in basic_2

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

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma
index 507e0c3effa0153a61415a01301eaf7438839d41..8b08043fd92fc72f293d742cfee028e9f9c10d21 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma
@@ -25,6 +25,11 @@ interpretation
    "uncounted parallel rt-computation (local environment)"
    'PRedTySnStar h G L1 L2 = (lpxs h G L1 L2).
 
+(* Basic properties *********************************************************)
+
+lemma lpxs_refl: ∀h,G. reflexive … (lpxs h G).
+/2 width=1 by lex_refl/ qed.
+
 (* Basic inversion lemmas ***************************************************)
 
 lemma lpxs_inv_bind_sn: ∀h,G,I1,L2,K1. ⦃G, K1.ⓘ{I1}⦄ ⊢⬈*[h] L2 →