fact: Fixpoint egcd_rec (a b : R) n {struct n} : R * R := if n is n'.+1 then if b == 0 then (1, 0) else let: (u, v) := egcd_rec b (a %% b) n' in (v, (u - v * (a %/ b))) else (1, 0).
imports: HB(structures) Coq(ssreflect ssrfun ssrbool Arith.Wf_nat) mathcomp(eqtype ssrnat div seq path) mathcomp(ssralg fintype perm tuple choice generic_quotient) mathcomp(matrix bigop zmodp mxalgebra poly) stronglydiscrete