proposition: Lemma tree_recdef_p x: treep x -> tree_rec x = tree_rec_prop x (Lg (tstratified (tdepth x)) tree_rec).
proof: Proof. move: (stratified_fct_pr tree_rec_prop tree_rec_def_aux1 tree_rec_def_aux2). rewrite -/tree_rec => h xt. move/OS_nat:(NS_tdepth xt) => oi. by rewrite (h _ xt) (tstratified_val oi). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq)