fact: Definition EPperm_2pos m k1 q n (s := EPperm_rec m) (f1 := fun i => Vf f (Vf s i)) (h:= fun i => Vf g (Vf EPfun_aux (Vf s i))) (P1 := fun i => EPperm_compat0 r1 f1 m q (Vf f i)) := (P1 k1 /\ (forall i, natp i -> P1 i -> k1 <=c i)) /\ EPperm_compat0 r2 h m q (Vf g n).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)