(* *)
(**************************************************************************)
+include "basic_2/notation/functions/weight_1.ma".
include "basic_2/grammar/term.ma".
(* WEIGHT OF A TERM *********************************************************)
-let rec tw T ≝ match T with
+rec definition tw T ≝ match T with
[ TAtom _ ⇒ 1
| TPair _ V T ⇒ tw V + tw T + 1
].
(* Basic properties *********************************************************)
(* Basic_1: was: tweight_lt *)
-lemma tw_pos: ∀T. 1 ≤ #{T}.
+lemma tw_pos: ∀T. 1 ≤ ♯{T}.
#T elim T -T //
qed.