-definition clen:
- C \to nat
-\def
- let rec clen (c: C) on c: nat \def (match c with [(CSort _) \Rightarrow O |
-(CHead c0 k _) \Rightarrow (s k (clen c0))]) in clen.
+let rec clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow O |
+(CHead c0 k _) \Rightarrow (let TMP_1 \def (clen c0) in (s k TMP_1))].