X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fbind_weight.ma;h=caab2538ad0df42ab5a0bab70d484a2a4195cd3b;hp=2cf1bc17099bd5e19ea558cfba80eeecfb61adcb;hb=156d974ad89aa04a086fdf9d332c8b04adf279fd;hpb=8fe4dc148d50a0352313633bea61441bc817afbf

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma
index 2cf1bc170..caab2538a 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma
@@ -18,14 +18,18 @@ include "static_2/syntax/bind.ma".
 (* WEIGHT OF A BINDER FOR LOCAL ENVIRONMENTS *******************************)
 
 rec definition bw I ≝ match I with
-[ BUnit _   ⇒ 1
+[ BUnit _   ⇒ 𝟏
 | BPair _ V ⇒ ♯❨V❩
 ].
 
-interpretation "weight (binder for local environments)" 'Weight I = (bw I).
+interpretation
+  "weight (binder for local environments)"
+  'Weight I = (bw I).
 
 (* Basic properties *********************************************************)
 
-lemma bw_pos: ∀I. 1 ≤ ♯❨I❩.
-* //
-qed.
+lemma bw_unit_unfold (I): 𝟏 = ♯❨BUnit I❩.
+// qed.
+
+lemma bw_pair_unfold (I) (V): ♯❨V❩ = ♯❨BPair I V❩.
+// qed.