fact: Definition transfinite_def r (T: fterm) f := [/\ surjection f, source f = substrate r & forall x, inc x (substrate r) -> Vf f x = T (restriction1 f (segment r x))].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)