fact: Definition CNF_npec (px py: fterm) n m := fun i => Yo (i = (csucc n +c m)) (px (csucc n)) (Yo (i = n) (J (P (px n)) ((Q (px n) *o (Q (py m))))) (Yo (i <c n) (px i) (py (i -c (csucc n))))).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)