fact: Definition from (f : tp) : @UM.base nat_ordType nat_pred A := f.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval) pcm(options prelude pred finmap rtc seqext useqord uslice uconsec)