some renaming and reordering of variables

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / grammar / cl_restricted_weight.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/cl_restricted_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/cl_restricted_weight.ma
index e889b05482729a7fc6d560e9101dd39b44e819e8..fb2bcaf94cff0b3f8232069d9f7979a79f0a6acb 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/grammar/cl_restricted_weight.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/cl_restricted_weight.ma
@@ -24,7 +24,7 @@ interpretation "weight (restricted closure)" 'Weight L T = (rfw L T).
 (* Basic properties *********************************************************)
 
 (* Basic_1: was: flt_shift *)
-lemma rfw_shift: ∀a,I,K,V,T. ♯{K.ⓑ{I}V, T} < ♯{K, ⓑ{a,I}V.T}.
+lemma rfw_shift: ∀p,I,K,V,T. ♯{K.ⓑ{I}V, T} < ♯{K, ⓑ{p,I}V.T}.
 normalize //
 qed.
 
@@ -40,6 +40,10 @@ lemma rfw_lpair_sn: ∀I,L,V,T. ♯{L, V} < ♯{L.ⓑ{I}V, T}.
 normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/
 qed.
 
+lemma rfw_lpair_dx: ∀I,L,V,T. ♯{L, T} < ♯{L.ⓑ{I}V, T}.
+normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/
+qed.
+
 (* Basic_1: removed theorems 7:
             flt_thead_sx flt_thead_dx flt_trans
             flt_arith0 flt_arith1 flt_arith2 flt_wf_ind