fact: Definition normal f:= [/\ forall x, T1nf x -> T1nf (f x), (forall x y, T1nf x -> T1nf y -> x < y -> f x < f y)& (forall x, T1nf x -> T1limit x -> sup f x (f x)) ].
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(fintype bigop)