include "basic_1/s/defs.ma".
-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))].
+rec definition clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow
+O | (CHead c0 k _) \Rightarrow (s k (clen c0))].