fact: Definition Rcorrect (R : comRingType) := let RE := Eq_ext +%R *%R -%R in ring_correct (Eqsth R) RE (Rth_ARth (Eqsth R) RE (RR R)) (RZ R) (PN R) (triv_div_th (Eqsth R) RE (Rth_ARth (Eqsth R) RE (RR R)) (RZ R)).
imports: elpi(elpi) Coq(ZArith Ring Ring_polynom Field_theory) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg ssrnum ssrint) mathcomp.zify(ssrZ zify) mathcomp.algebra_tactics(common)