-definition lweight:
- A \to nat
-\def
- let rec lweight (a: A) on a: nat \def (match a with [(ASort _ _) \Rightarrow
-O | (AHead a1 a2) \Rightarrow (S (plus (lweight a1) (lweight a2)))]) in
-lweight.
+let rec lweight (a: A) on a: nat \def match a with [(ASort _ _) \Rightarrow O
+| (AHead a1 a2) \Rightarrow (let TMP_1 \def (lweight a1) in (let TMP_2 \def
+(lweight a2) in (let TMP_3 \def (plus TMP_1 TMP_2) in (S TMP_3))))].