fact: Definition bezout_edr a b : R * R := let: (P,d,Q) := smith (row_mx a%:M b%:M : 'rV_2) in (P 0 0 * Q 0 0, P 0 0 * Q (rshift 1 0) 0).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path tuple) mathcomp(perm fingroup choice ssralg fintype finfun poly polydiv) mathcomp(bigop matrix zmodp mxalgebra) ssrcomplements dvdring mxstructure similar minor binetcauchy stronglydiscrete coherent