fact: Definition universe_permutation_fun x := Yo (inc x Nat /\ x <> \0c) (singleton x) (Yo (exists y, [/\ inc y Nat, y <> \0c & x = singleton y]) (union x) x).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)