fact: Definition induction_defined0 (h: fterm2) (a: Set) := transfinite_defined Nat_order (fun u => variant \0c a (h (cpred (source u))(Vf u (cpred (source u)))) (source u)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(binomial div)