fact: Hypothesis kapP : forall (a b c : R), gcdr a (gcdr b c) %= 1 -> let: (p,q) := kap a b c in coprimer (p * a) (p * b + q * c).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype matrix mxalgebra bigop zmodp perm choice) dvdring mxstructure minor stronglydiscrete coherent edr