interpretation "weight (closure)" 'Weight L T = (cw L T).
+axiom tw_wf_ind: ∀P:term→Prop.
+ (∀T2. (∀T1. # T1 < # T2 → P T1) → P T2) →
+ ∀T. P T.
+
axiom cw_wf_ind: ∀P:lenv→term→Prop.
(∀L2,T2. (∀L1,T1. #[L1,T1] < #[L2,T2] → P L1 T1) → P L2 T2) →
∀L,T. P L T.