fact: Definition le_of_leif x y C (le_xy : @leif x y C) := le_xy.1 : le x y.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(path fintype tuple bigop finset div prime finfun) mathcomp(finset)