fact: Definition ffix_order (x : T) := if x \in U =P true is ReflectT xU then fix_order Fsub [` xU] else 0.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrnat eqtype ssrfun seq) mathcomp(choice path finset finfun fintype bigop)