fact: Definition len_aux x (len : forall y, R x y -> nat) := let f i (hi : i < length (sons FB x)) := len (ith hi) (in_sons_R FB (ith_In hi)) in S (lmax (pvalues f)).
imports: CoLoR(SN ListMax RelUtil ListUtil LogicUtil) Coq(Arith)