fact: Definition EPperm_compat0 r h n k x := [/\ k <=c n, (k = \0c -> glt r x (h \0c)), (k = n -> k <>\0c -> glt r (h (cpred n)) x) & (k <c n -> k <> \0c -> (glt r (h (cpred k)) x) /\ glt r x (h k)) ].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)